binmode STDOUT;
my $BOM = "\x{ef}\x{bb}\x{bf}";
print $BOM;
while (<>) {
   from_to($_,"WINDOWS-1252","UTF-8", Encode::FB_QUIET);
   print;
}