#!/usr/bin/perl
use warnings;
use File::Find;
 #takes list of dirs on commandline 
 #must give one or get an error 

finddepth sub {
    return if $_ eq "." or $_ eq "..";
    return if -d;
    unlink($_);
 # print "$File::Find::name\n";  #if you want printout 
 }, @ARGV;

__END__