A further point has just occurred to me.

Don't hard-code values in your subroutines, pass those values when calling. The reasons are much the same as I gave for TIMEOUT in my earlier comments.

Change

sub Pending_HTTP {
    my $file_write = 'Out_Stats.txt';
    ...
}
[download]

to

sub Pending_HTTP {
    my ($file_write) = @_;
    ...
}
[download]

(and similarly for sub Print_File {...})

The calling code would then become something like:

my $outfile = 'Out_Stats.txt';
...
Pending_HTTP($outfile);
Print_File($outfile);
[download]

If the filename changes, you'll only need to change the $outfile assignment; currently, you'd need to search and replace every occurrence of 'Out_Stats.txt'.