Select Code to Download

#!/usr/bin/perl 
# tiny is homophonic to тайный, me
+aning secret in russian
...
__END__

I have noticed that a sign went up in yard indicating that you were lo
+oking to leave Eagle Meadows. ...Me he dado cuenta de que se ha puest
+o un cartel en el jardín indicando que querías dejar Eagle Meadows.

fritz@laptop:~/Documents$ trans "puesto un cartel"
puesto un cartel
...
    put up a poster, put a sign
fritz@laptop:~/Documents$

my $file_in  = path("/home/fritz/Desktop/1.enchanto.txt");
my $file_out = path('/home/fritz/Desktop/1.enc_trans.txt');
my $lang     = 'es';

#!/usr/bin/perl 
# tiny is homophonic to тайный, me
+aning secret in russian
...
__END__

fritz@laptop:~/Documents$ ./5.trans.pl 
Name "DB::single" used only once: possible typo at ./5.trans.pl line 9
+6.
...
fritz@laptop:~/Documents$