Select Code to Download

#!/usr/bin/perl
use warnings;
...
 }, @ARGV;

__END__

find . -type f -exec rm {} \;

$ time find . -type f -exec rm {} \;

...
real    0m0.384s
user    0m0.076s
sys     0m0.308s