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

getopts('i:'); 
$file_serch= $opt_i;

$dir = "/MYDIR/";
find(\&edits, $dir);

sub edits()
{
    $pos = rindex $File::Find::name,'/';
    $file_name = substr($File::Find::name,$pos+1,length($File::Find::name));

    $in_file = $file_name if ($file_name=~ m/^$file_serch/);

    exit if $in_file ne "";
}