Nope, I get:

use strict ;
use warnings ;
 $_ = IO::Handle::getline (*STDIN );
 @_ = split ( " ", $_);
 my (@ap ) = split ( " ", $_);
 my $i  = 0;
 my $m  = Lingua::Romana::Perligata::__lastelem__ ( @_);
for $_ (Lingua::Romana::Perligata::__enlist__ ( 0, $m)) {print (STDOUT
+ $_, " ");
print (STDOUT $_, " ")}
;
print (STDOUT "\n");
my (@b );
my $v ;
for $v (Lingua::Romana::Perligata::__enlist__ ( 0, $m)) {print (STDOUT
+ $v, " ");
print (STDOUT $v, " ");
 $v = $v}
;
print (STDOUT "\n");
for $_ (@_) {print (STDOUT $_, " ")}
;
print (STDOUT "\n");
for $_ (@b) {print (STDOUT $_)}
[download]

Note that I'm running perl 5, version 20, subversion 2 (v5.20.2) built for MSWin32-x64-multi-thread and use Lingua::Romana::Perligata 9999999999999 tells me this is only version 0.50.