Select Code to Download

#!/usr/bin/perl
use File::Find;
...
if($! =~ /not empty/){warn "$File::Find::name $!"}
}, @ARGV;

#!/usr/bin/perl
use File::Find;
...
return if (! -d) or ($_ eq '.'|'..');
rmdir($_)}, @ARGV;