demo_hashdir.pl revision 7c478bd95313f5f23a4c958a745db2134aa03244
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;