use strict;
use warnings;
use Encode qw/from_to/;
while (<>) {
   from_to($_,"CP850","UTF-8", Encode::FB_QUIET);
   print;
}