my $Cipher = Crypt::CBC->new( {'key'             => "My secret key. Shush.",
                                  'cipher'          => 'Blowfish',
                                  'padding'         => 'null', 
                                  'iv'              => '{3fd#t4^$#',
                                  'regenerate_key'  => 0,
                                  'prepend_iv'      => 0
   });
   $Cipher->start('e');
   my $Shout = $dbh->quote($Cipher->crypt($q->param('Message')));
   $cipher->finish();