#!C:\perl\bin\perl #use strict; use CGI; use DBI; ############### cgi header part ############# $q = new CGI; print $q->header("text/html"); print $q->start_html(-title=>"details" -bgcolor =>"#FFEAA9"); ################ database handling ######### my $dbh = DBI->connect("DBI:mysql:login", {PrintError =>0, RaiseError =>0}) ; #automatic error checking ##DBI->trace(2); # my $nam = $q->param('name'); my $pas = $q->param('pass'); my $data = qq(select * FROM test WHERE user='anniyan' and passwd = PASSWORD (?)); #print "$nam\t$pas\n"; my $sth = $dbh->prepare($data); $sth->execute($pas); while ((@ar) = $sth->fetchrow_array()) { print "@ar\n"; }