use strict;
use warnings;

print "Input file name? ";
my $name_in = <>;
chomp $name_in;

print "output file name? ";
my $name_out = <>;
chomp $name_out;

open my $in, '<', $name_in or die "error opening $name_in: $!";
open my $out , '>', $name_out or die "error opening $name_out: $!";

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