use Crypt::ECB qw(encrypt decrypt encrypt_hex decrypt_hex);
my $ascii_key = "0123456789abcdef";
my $plain_text = "Now is the time for all ";
print encrypt_hex($ascii_key,"DES_PP",$plain_text,"0");