my $code = Crypt::LewisCarrollCode->new('This is a pass phrase'); my $encrypted = $code->encrypt("You will never decipher this!"); my $decrypted = $code->decrypt($encrypted); #### my $code = Crypt::LewisCarrollCode->new("this is a pass phrase"); my $encrypted = $code->encrypt('Four score and seven years ago, our '); $encrypted .= $code->encrypt('fathers brought forth, upon this continent, '); $encrypted .= $code->encrypt('a new nation, conceived in liberty, '); $encrypted .= $code->encrypt('and dedicated to the proposition that '); $encrypted .= $code->encrypt('"all men are created equal."'); my $Gettysburg_Address = $code->decrypt($encrypted);