Select Code to Download

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

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

for (@fromfile)