open IN, "<:encoding(utf8)", $ARGV[0];
open OUT, ">:encoding(cp-1256)", $ARGV[1];
while (<IN>) {
    print OUT
}
__END__