use IO::Dir qw[DIR_UNLINK];
tie my %d, 'IO::Dir', '.', DIR_UNLINK;

##</code><code>##

use IO::Dir;
tie my %d, 'IO::Dir', '.', 1;