$ cat delete.pl
#!/usr/bin/perl -w

use IO::Dir;

tie %dir, 'IO::Dir', '.';

delete($dir{'foo'}) || die "$!\n";