#!C:/Perl/bin/perl 
use strict;
use CGI qw(:standard);
print "content-type: text/html\n\n";
 use DBI;
my ($dbh, $sth);

my $AccountID=param('AccountID');
my $PW=param('Password');

$dbh = DBI->connect('dbi:mysql:membersdb','member','memberpasswd') || die "cannot open";
$sth = $dbh->prepare("SELECT AccountID,PW FROM memberid WHERE AccountID=? and PW =?");$sth->execute ($AccountID,$PW);