# Includes
use strict;
use warnings;

use CGI;
use DBI;
use Digest::MD5 qw(md5 md5_hex md5_base64);

# Get Parameters
my $p_sUsername = param( 'username' );
my $p_sPassword = param( 'password' );
$p_sPassword = md5_hex( $p_sPassword );

if ( !defined( $p_sUsername ) || !defined( $p_sPassword ) ) {
	print redirect( "access-denied.pl" );
}

# DB Stuff done here ...

my $oCGI = CGI->new();
my $oCookie = $oCGI->cookie(
	-name => "user", 
	-value => $p_sUsername
    -expires=>'2h'
);

print redirect( "result.pl", $oCookie );

##</code><code>##


my $oCGI = CGI->new();
print $oCGI->cookie('user'); # this is empty