Select Code to Download

   $/ = undef;

...
   close FIN;

   print "|$_|\n" for @fin;

   ...
   my @fin = grep {$_} split /\n/, <FIN>;