perl-scripts/Lingua/rus_translit.pl

use Lingua::Translit;
my $tr = new Lingua::Translit('DIN 1460 RUS');
print $tr->translit(@ARGV ? shift : join'',<>);