use File::Find; find(sub { rmdir $_ || unlink $_ }, @ARGV);