Select Code to Download

my @infiles = &GetINDirFiles($inpath);  
# instead of having an array with the outfiles use a hash for faster l
+ookup
...
        push (@delindex, $index) if exists $outfiles{$infile};
        $index += 1;
}

my %outfiles = map { /(.*)\Q$outsuffix\E$/; $1 => 1 } &GetOUTDirFiles(
+$outpath);
my @infiles = grep { /(.*)\Q$insuffix\E$/; not exists $outfiles{$1} } 
+&GetINDirFiles($inpath);  
print "@infiles\n";

use strict;
use warnings;
...
        print "File $_ in $inpath directory was created ". ( $currentt
+ime - (stat "$inpath/$_" )[9] )/60.0 ."minutes ago.\n";
        # put your action here
}