ok, try this put this at the top of the script;

 
  open my $fh1, '<', "/tmp/host/mon2a" or die "unable to open file 'fi
+le' for reading : $!";
  my @fromfile=<$fh1>; 
  close $fh1;
[download]

then change

open my $fh1, '<', "/tmp/host/mon2a" or die "unable to open file 'file
+' for reading : $!";
while (<$fh1>)
[download]

to

for (@fromfile)
[download]

This code also suffers from other problems, use strict; use warnings; would help a lot.

Untested, YMMV