#!/usr/local/bin/perl -w
use strict;
use CGI;

my $q = CGI::new();
$q->use_named_parameters();

open (PASSWD, ".PASSWORD") or die "Couldn't open file";
my $matched= 0;
my $queried_user = $q->param(-name=>"user");
my $queried_pass = $q->param(-name=>"pass");

while (<PASSWD>) {
    my ($user,$pass) = split(/\s/,$_);
    if (($queried_user eq $user) and ($queried_pass eq $pass)) {
	$matched = 1;
	    $q->redirect("works.html");
    }
}
if (!$matched) {
    print $q->header() . $q->start_html;
    print "Bad Username/Password combination<br>";
    print $q->end_html;
}