#!perl
use Crypt::Tea;
my $string = 'tobecrypted';
my $key = 'somekey';
# Print Original String
print $string."\n";
# Encrypt the string using my key
$user = encrypt($string,$key);
# Print Encrypted String
print $user."\n";
# Decrypt the string
$user = decrypt($user,$key);
# Print back Original String
print $user."\n";