time perl -MFile::Find -e'finddepth sub { unlink if -f }, @ARGV' /tmp