#!/usr/bin/perl

use Crypt::CBC;
use strict ;
use warnings;


my $cipher = Crypt::CBC->new(-key   => 'test',
                             cipher=> 'DES',
                             -salt  => 1) || die "Couldn't create CBC object";

my $cryptval =  $cipher->encrypt_hex('secret word');
print " cryptval1  is $cryptval \n";

$cryptval =  $cipher->decrypt_hex($cryptval);

print " cryptval2  is $cryptval \n";