Usando el lenguaje Perl: