use autodie;
use File::BOM;
open my($In), '<:encoding(UTF-8):via(File::BOM))', $infile;
open my($Out), '>:encoding(Windows-1252)', $outfile;
print $Out $_ while <$In>;
close $In;
close $Out;

##</code><code>##

use Encode;
binmode STDIN;
binmode STDOUT;
print encode( 'Windows-1252', decode( 'UTF-8', $_ ) ) while <STDIN>;