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

##</code><code>##

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