tie %Directory, 'Tie::Dir', '.', DIR_UNLINK;
#               ^        ^