use Encode;
$infile=shift;
$outfile=shift;
open IN, $infile or die;
open OUT, ">:utf8", "$outfile" or die;
  
while(<IN>)  { print OUT $_; }