Select Code to Download

 open my $fh1, '<', "/tmp/host/mon2a" or die "unable to open file 'fil
+e' for reading : $!";

 
my @list = (@lines);
foreach (@lines) {
...
                     or die "Cannot close file '$_': $!";

                               }