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 ?


eh ? ,  no , esta funcion es para hacer un logo dinamico o por lo menos lo intenta xDD , el tema es que solo sirve para eso , no para otra cosa mas.