#!/usr/bin/perl
use strict;
use warnings;
use Encode;

my $from     = $ARGV[0];
my $to       = $ARGV[1];
my $in_file  = $ARGV[2];
my $out_file = $ARGV[3];

open my $input, "<:encoding($from)", $in_file or die "$!";
open my $output, ">:encoding($to)", $out_file or die "$!";

while(<$input>){
    print $output $_;
}

close($input);
close($output);