#!/usr/bin/perl
use strict;
use Crypt::CBC;
my $cipher = Crypt::CBC->new( -key    => 'test',
                             -salt   => 1,
                            );
my $ciphertext = $cipher->encrypt("encrypt_me");
#  my $plaintext = $cipher->decrypt($ciphertext);
        $print_this=unpack("H16", $ciphertext);
#so far, so good
        $packed_stuff=pack("H16", $print_this);
print $packed_stuff."\n";