if(my $cryptpass = Intranet::Security::Authenicate($args{'username'},$args{'password'})) { my $co = new CGI; my $cookie = Intranet::Security::CreateUserCookie($args{'username'},$cryptpass) || die " Could not create cookie"; print $co->header( -uri=>'/maddenapps/test.cgi', -cookie=>$cookie); exit; }