my $FIND = '/usr/bin/find';
&finder($FIND, ' . -name somename -print');

sub finder {
        my ($cmdName,$cmdOptions) = @_;
        my $cmdExecute = $cmdName . $cmdOptions;
        chdir "/";
        my $res = `/usr/bin/perl runtimed 3 $cmdExecute`;
        print "$res\n";
        return 0;
}