my $memout = `chcp`;
$memout =~ /(\d+)/;
print STDERR "Detected code page $1 ... continuing\n";