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