#-----------------------------------------------
use Unicode::UTF8simple;
$uref = new Unicode::UTF8simple;

open(IN, $ARGV[0]) or die;
open(OUT, ">$ARGV[1]") or die;

while(<IN>)
{
        $string = $uref->fromUTF8("windows-1256",$_);
        print OUT $string;
}
close(IN);
close(OUT);
#-----------------------------------------------