[Perl] Ejemplo de Cifrado Vigenere

. A simple example of Vigenere encryption made ​​using a module cpan I found in the code:

# !usr/bin/perl# Vigenere Cipher# Coded By Doddy Hackman in the year 2014use Crypt::Vigenere;head();menu();copyright();# Functionssub head {    print "\n-- == Vigenere Cipher == --\n";}sub copyright {    print "\n\n-- == (C) Doddy Hackman 2014 == --\n";}sub menu {    print qq(================ Menu        ================1 - Encode    =2 - Decode    =3 - Exit      ================);    print "\n[+] Option : ";    chomp( my $op = <stdin> );    if ( $op eq "3" ) {        copyright();        <stdin>;        exit(1);    }    print "\n[+] Enter text : ";    chomp( my $text = <stdin> );    print "\n[+] Enter Key : ";    chomp( my $key = <stdin> );    print "\n[+] Result ...\n\n";    $tool = Crypt::Vigenere->new($key);    if ( $op eq "1" ) {        print $tool->encodeMessage($text);        <stdin>;        menu();    }    elsif ( $op eq "2" ) {        print $tool->decodeMessage($text);        <stdin>;        menu();    }    else {        menu();    }}# The End ?

That's all.