Select Code to Download

perl -ne "print unless /^#/" infile > outfile

use strict;
use warnings;
...
      print $fh_out $_;
   }
}

use strict;
use warnings;
...
   or die("Unable to create output file \"$file_out\": $!\n");

print $fh_out (grep !/^#/, <$fh_in>);