sub decrypt
{
my $ciphertext = shift;
my $key = "somekeyhere";
my $cipher = Crypt::CBC->new( -key    => $key,
                             -cipher => 'Blowfish',
                             -salt => 1
                           );


return ($cipher->decrypt_hex ($ciphertext));
}