#!/usr/bin/perl # #!/usr/bin/perl -w use CGI; my $query = new CGI; print "Content-type: text/html\n\n"; open FILE,$query->param('name'); @file= ; close FILE; if ($query->param('pass') eq @file[1]){ print qq[ ];} else{ print qq[Sorry, that was the wrong pass/name, please try again]; }