Takes a list as either STDIN, or all but the first argument passed. Then it runs the command given by the first argument passed on everything on that list. So, it like xargs only more flexible.

#!/usr/bin/perl
use File::Find;

$c = pop @ARGV;
@files = @ARGV or @files = <STDIN>;
for(@files){
    chomp;
    find(sub{`$c \"$_\"` if -f}, $_);
}
[download]