my $session = session_header;#---by using CGI::Session;
if ( $query->param("frmsubmit") ) {

$uname = $query->param("uname");
$pwd = $query->param("pwd");
if ($uname eq "AA" && $pwd eq "AA") {
$session->param( "usertype", 'admin' ); # store into the session:
my $c = new CGI::Cookie(-name => 'plcuser',-value => 'admin', -expires => '+20m');
print "Set-Cookie: $c\n";
print "Location: $rdurl\n\n";
#print $query->redirect($rdurl);
}