use File::Copy;
use Date::Manip; 

my $search_in="U:\\Temp";
my $search_local="D:\\my";

my $copy_to=$ARGV[1];
$db_name=$db_date=$ARGV[0];
#$db_name=$db_date=$_;

$db_name =~ s/\d|\.trn|\_backup_//g; 
$db_date =~s/[^\d]//g;
$miss_file_date = UnixDate(DateCalc(ParseDate($db_date), "-10 minutes"), "%Q%H%M"); 
$missing_file=$db_name."_backup_".$miss_file_date.".trn";
print "\n\nThe database name is: $db_name\n";
print "Error occured in file[input file] :$ARGV[0] \n";
print "File missing for date: $miss_file_date\n";
print "\nThe missing file is: $missing_file\n\n";
print "Searching..please wait\n";
 
foreach( glob("$search_local/$missing_file") ){
if (-e $_)
{
#$copy_to="F:\\Backup\\$db_name\\CURR"
copy ($_,$copy_to) or print "Can't copy file to $curr_folder\n" and die;

print "\nFile found!!\n";
print "File found in $search_local\n";
print "\nThe missing file $missing_file is copied to $copy_to\n";
 } 
else{
print "local search \n";
print "Unable to find the missing file $_\n";
print "Search in sql\n";

goto search2;
}
}
search2:
foreach( glob("$search_in/$missing_file") ){
if (-e $_)
{
#$copy_to="F:\\Backup\\$db_name\\CURR"
copy ($_,$copy_to) or print "Can't copy file to $curr_folder\n" and die;

print "\nFile found!!\n";
print "File found in $search_in\n";
print "\nThe missing file $missing_file is copied to $copy_to\n";
 } 
else{
print "Unable to find the missing file $_\n";
}
}