[Perl] Funcion marquesina

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

#!/usr/bin/perl #Funcion marquesina() #Coded By pr0xXx0r 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 ?