Select Code to Download

use strict;
use warnings;
...
open my $out , '>', $name_out or die "error opening $name_out: $!";

print $out grep { !/^#/ } <$in>;