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

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