Una breve prueba con Perl