require 5.6.1;
use utf8;
use strict;
use warnings;
use Vigenere;

my $v= new Vigenere;
my $key= "white";

# print join ("\n", $v->print_square());

$v->set_key ($key);
my $s1= "divert troops to east ridge";
my $output= $v->encode ($s1);
print "plaintext : $s1\nciphertext: $output\n";

$v->set_key ($key);
my $decode= $v->decode ($output);
print "decoded   : $decode\n";