#!usr/bin/local/perl -w
use strict;
use CGI qw( :standard );
my $p;
my $password;
$p="howdy";
$password=param('password');
if ($p eq $password) {
print "Content-type: text/html\n\n
Password Check
It worked
";
} else {
print "Content-type: text/html\n\n
Password Check
Loser -- Try Again
";
}