print header, start_html;

if ( cookie('sessionID') ) {
    print "You're in!";
    print cookie();
}
else {
    print "BAD COOKIE!<br>";

    print start_form(),
      table(
        Tr(
            td("Username:"),
            td( textfield( -name => 'username', -size => '15' ) )
        ),
        Tr(
            td("Password:"),
            td( textfield( -name => 'password', -size => '15' ) )
        ),
        Tr( td( submit('send') ), ),
        end_form,
      );

    if (param) {
        use Digest::MD5 qw(md5 md5_hex md5_base64);

        my $user    = param('username');
        my $passold = param('password');
        my $pass    = md5_hex($passold);    #encrypt

        if ( exists $login{$user} ) {
            if ( $login{$user} == $pass ) {
                print "Good!<br>";
                
my $contents = join("::", $user, $pass);

        my $cookie=    cookie(
                    -name    => 'sessionID',
                    -value   => "$contents",
                    -expires => '+1h',
                    -secure  => 1
                );
print "\$contents: $contents<br>";                
print "$cookie<br><br>";
                print "Your cookie should have been set<br>";
            }
            else {
                print "Bad password!<br>";
            }
        }
        else {
            print "Username not found!<br>";
        }

        print "You typed: $user => $pass<br>";
        print "<br><br>";
        foreach ( keys %login ) {
            print "$_ => $login{$_}<br>";
        }
    }
}