Select Code to Download

D:\>cat Demo.pl
#!perl
...
There's an unexpected/unwanted CR at the end of the line

D:\>

#!perl
print "Hello, world\n";

#!perl

...
    chomp $line;
    print $output_fh "$line\n";
}