my $Cipher = Crypt::CBC->new( {'key'             => "Still secret. Quiet, you.",
                                  'cipher'          => 'Blowfish',
                                  'iv'              => '{3fd#t4^$#',
                                  'padding'         => 'null',
                                  'regenerate_key'  => 0,
                                  'prepend_iv'      => 0
   });

   my $Shout = $dbh->quote($Cipher->encrypt($q->param('Message')));