use strict;
use File::Find;

my $action = shift;

find(sub {
    return unless -f;
    system($ARGV[0], $_) == 0
        or warn "Non-zero exit code for $_";
}, @ARGV);