#!"C:\xampp\perl\bin\perl.exe" use DBI; use CGI; $cgi = CGI->new(); $db ="datab"; $usr ="root"; $pwd =""; $host ="localhost"; $dbh = DBI->connect("DBI:mysql:$db:$host", $usr, $pwd { AutoCommit => 0, RaiseError => 1, } ) or die $DBI::errstr; my $username = $cgi->param('username'); my $password = $cgi->param('password'); my $sth = $dbh->prepare("select id from mysql_auth where username = ? AND password=?"); $sth->execute($username, $password); if ($x = $sth->fetchrow()) { $sth->finish(); $cookie = $cgi->cookie(-name=>'id', -value=>$username); print $cgi->redirect(-location=>"welcome.pl", -cookie=>$cookie); } else { print $cgi->redirect("wrong_username or password.pl"); } print "Content-type: text/html\n\n"; print < Untitled Document

username

password

START_HTML