$infile = "test.html";
$outfile = "test-print-output.txt";

open($fh, "<:utf8", $infile);

open(OUT, ">$outfile");
binmode OUT, ':cp1252';

@infile = <$fh>;

foreach $line (@infile) {
	print OUT $line;
}

close(OUT);

close($fh);