use strict;
use warnings;
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 =~ 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";

perform_search($search_local, "local");

perform_search($search_in, "");

sub perform_search {
    my $search_dir = shift;
    my $local_flag = shift;
    foreach ( glob("$search_dir/$missing_file") ){
        if (-e $_) {
            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 "local search\n" if $local_flag eq "local";
            print "Unable to find the missing file $_\n";
            if ($local_flag eq "local") {
                print "Search in sql\n";
                last;
            }
        }
    }
}