or download this
my $code = Crypt::LewisCarrollCode->new("this is a pass phrase");
my $encrypted = $code->encrypt('Four score and seven years ago, our '
+);
...
$encrypted .= $code->encrypt('"all men are created equal."');
my $Gettysburg_Address = $code->decrypt($encrypted);