#!/usr/bin/perl
use Crypt::Blowfish;
use strict;
use warnings;
my $key = pack("H16","0123456789ABCDEF");
my $crypt = new Crypt::Blowfish $key;
my $ciphertext = $crypt->encrypt('8chars12');
my $decrypt = new Crypt::Blowfish $key;
print  $decrypt->decrypt($ciphertext),  $/;