#!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 !'); }