Select Code to Download

open (my $fh, '<:encoding(Windows-1252)', $fname) or die "cannot open 
+$fname: $!";

binmode STDOUT, ':encoding(cp437)'; # or cp850