# tie %hash, Tie::Dir, ".", DIR_UNLINK; sub TIEHASH { my($class,$dir,$unlink) = @_; $unlink ||= 0; bless [$dir,undef,$unlink], $class; }