Select Code to Download

use autodie;
use File::BOM;
...
print $Out $_ while <$In>;
close $In;
close $Out;

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