Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/lib/Attribute/Handlers/demo/demo_hashdir.pl
use Attribute::Handlers autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' }; my %dot : Dir('.', DIR_UNLINK); print join "\n", keys %dot; delete $dot{killme}; print join "\n", keys %dot;
