Desde que vi por primera vez este exploit en ruby siempre quise lograr el mismo efecto en perl , con la ayuda de explorer de perlenespanol logre hacer una funcion en perl que hace lo mismo que el exploit que mencione.

El codigo con un ejemplo de uso incluido

#!/usr/bin/perl
#Funcion marquesina()
#Coded By Doddy H
 
use Time::HiRes "usleep";
 
my @test = ("testando ahora now");
 
sub marquesina {
 
#Effect based in the exploits by Jafer Al Zidjali
 
my @logo = @_;
 
my $car = "|";
 
for my $uno(@logo) {
for my $dos(split //,$uno) {
 
$|++;
 
if($car eq "|") {
mostrar("\b".$dos.$car,"/");
}
elsif($car eq "/") {
mostrar("\b".$dos.$car,"-");
}
elsif($car eq "-") {
mostrar("\b".$dos.$car,"\\");
} else {
mostrar("\b".$dos.$car,"|");
}
usleep(40_000);  
}
print "\b ";
}
 
sub mostrar {
print $_[0];
$car = $_[1];
}
 
}
 
marquesina(@test);
 
#The End ?