#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);

my $cgi = CGI->new();
my $login = $cgi->param('login');
my $pass = $cgi->param('pass');
print $cgi->header(-charset => 'UTF-8');
if ($login && $pass) {
	readdata();
} else {
	 print $cgi->start_html('Fuck you hacker!'),
	      $cgi->start_center,
	      $cgi->h1('Fuck you hacker!'),
	      $cgi->end_html;
}

sub readdata {
	open(my $data, '<users.txt');
	while(<$data>) {
		if (/$login;$pass/) {
			print $cgi->start_html('GOOD!'),
			      $cgi->start_center,
			      $cgi->h1('GOOD!'),
			      $cgi->end_html;
			close $data;
			exit
		}
	}
	print $cgi->start_html('BAD!'),
	      $cgi->start_center,
	      $cgi->h1('BAD!'),
	      $cgi->end_html;
}