Someone

#!/usr/bin/perl -w

use Unicode::Map();
$Map = new Unicode::Map("CP1251");

open(MYINPUTFILE, "<info.txt");
        my($sms) = <MYINPUTFILE>;
        chomp($sms);

$dest= $Map -> to_unicode ($sms);
print "$sms\n";
print "$dest\n";

exit 0;