Select Code to Download

use strict;
use warnings;
...
my @array_of whole_file = <$fh>;

sleep 5;

use strict;
use warnings;
...
}

sleep 5;

foreach my $file (@ARGV){
...

    ...