Vigenere algorithm implementation

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

use Crypt::Vigenere;

my $keyWord='bruto';
my $vigenere = Crypt::Vigenere->new($keyWord);

# cripta stringa
my $plainText='anakvaincampagna';
my $encryptedText = $vigenere->encodeMessage($plainText);

# decripta stringa
my $decryptedText = $vigenere->decodeMessage($encryptedText);

say '-> Vigenere - testo in chiaro: '.$plainText;
say '-> Vigenere - testo criptato: '.$encryptedText;
say '-> Vigenere - testo decriptato: '.$decryptedText;