if ($usr eq 'admin' && $pwd eq 'admin') { $cookie = ...; #inside content print "Content-Type: text/html\r\n"; print "Set-Cookie: login="$cookie"\r\n\r\n"; ... } #### my $cipher = Crypt::CBC->new(-key=>$secret_key, -cipher => 'Rijndael'); my $cookie = MIME::Base64::encode_base64($cipher->encrypt("$usr:$pwd"), '');