#!/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";