Select Code to Download

use strict; # always enable all strictures
use warnings;
...
     print $fh "$line\n";
   }
} # End printout;