1use Attribute::Handlers::Prospective
2	autotie => { Dir => 'Tie::Dir qw(DIR_UNLINK)' };
3
4my %dot : Dir('.', DIR_UNLINK);
5
6print join "\n", keys %dot;
7
8delete $dot{killme};
9