#!/usr/bin/perl

print "Content-type:text/html\n\n";

use DBI;
use CGI;
$query = new CGI;

my $dbh=DBI->connect('DBI:mysql:test','edward','password');

my $logname=$query->param('log');
my $passwd=$query->param('pass');

my $sth=$dbh->prepare(<<End_SQL);
SELECT * from login where log = "$logname"
End_SQL

$sth->execute();

@row=$sth->fetchrow_array;

$dbh->disconnect();
print <"TESTING</br>">;
print "</body></html>";