use Crypt::CBC;

my $key = 'kjhAG43asoiudy3kjq43ajhali87LOljkYilKH84yiHLkjklasjsd98fu';

my $cipher = new Crypt::CBC($key,'Blowfish');
my $crypt = $cipher->encrypt($password);

$cgi = new CGI;

my $auth = "$user,$crypt";

$cookie = $cgi->cookie (
    -name    => 'hostauth',
    -value   => $auth
);

print $cgi->header (-type => 'text/html', -cookie => $cookie);

##</code><code>##

use Crypt::CBC;

my $key = 'kjhAG43asoiudy3kjq43ajhali87LOljkYilKH84yiHLkjklasjsd98fu';

my $cipher = new Crypt::CBC($key,'Blowfish');
my $auth = $cipher->decrypt($cookie);

# Send the $auth to the LDAP server...