Select Code to Download

 use strict;
use warnings;
...
my @filess = get_files(@datesFormatted);
searchForIP(\@filess, $ip);

#!/usr/bin/perl
...
        #print @files;
    return @files;
}