#!/usr/bin/perl -w
                                                                                
use strict;
use warnings;
                                                                                
use Crypt::Simple qw(encrypt decrypt);
                                                                                
my $data1 = encrypt("Here we go", passphrase => 'myTestPhrase');
my $data2 = encrypt("Here we go", passphrase => 'AnotherTestPhrase');
print "Encrypted(1): $data1\n";
print "Encrypted(2): $data2\n";
                                                                                
my $result1 = decrypt($data1);
my $result2 = decrypt($data2);
print "Decrypted(1): $result1\n";
print "Decrypted(2): $result2\n";

##</code><code>##

Encrypted(1): Qf9g4cqQ/6xXgqvcPLJA6u9PZ4jPgegPrsBCsFaPch3LDsaN6TjN6xjLjebw4yPFNO2rEBTUgISSkiX1v2Aelt4qmHFcd6nF
Encrypted(2): qymmKtF/LXb+HIZe6ZCFS8xtLadYkS+09dZ8zxAvL+r9Rw+GjkeBMc8ye++Yl/s/DxJppvKQm2ToJ78mENTuxcc8fUMrKdZbHuWGiMBxgK0=
Decrypted(1): Here we go
Decrypted(2): Here we go