Select Code to Download

Encryption.pm did not return a true value at test.pl line 3.
BEGIN failed--compilation aborted at test.pl line 3

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

#!/usr/bin/perl -w
use strict; 
...
 
  return $encrypted;
}