#!c:/Perl/bin/perl

use strict;
use CGI qw/:standard/;
my ($uid, $password);
$uid=param("uid"); $password=param("password");
if($uid eq "arnold" && $password eq "spiderman"){
	my $loggedIn=cookie(-name=>'loggedIn', -value=>'true');
	print header(-cookie=>$loggedIn), start_html('Login'), h2('Login success!');
} else {
	print header(), start_html('Login'), h2('Login failed !');
}