#!/usr/bin/perl -w
use strict;
use Encryption;
 
my $ENC=Encryption->new();
 
my $TestString="This is a test";
 
my $EncryptedString = $ENC->encrypt_acctnumber($TestString);
 
print"\$EncryptedString is : $EncryptedString";