Teste

#!usr/env/bin perl

use feature 'say';
use common::sense;
use Vigenere;

my $a = Vigenere->new();
$a->word('teste');
$a->key('cinco');

say "Resultado: " . $a->encode();