Select Code to Download

 #!/usr/bin/perl -w
 use strict 'vars';
...
     print $fh "$line\n";
   }
} # End printout;

print $fh "$line\n";