#!/usr/bin/perl -w print "content-type:text/html\n\n"; print ""; print ""; print ""; use CGI; $cgi=new CGI; #BEGIN { $ENV{DBI_PUREPERL} = 1 } use DBI; #::PurePerl; $pdb=$cgi->param('pdb'); $dbh=DBI->connect('dbi:mysql:mysql','kalai','kavithai') or die "connection failed : $DBI::errstr"; $pdb="1une"; $query="select * from pdbsummary where pdbid='$pdb'"; $exe=$dbh->prepare($query); $exe->execute(); while(@array=$exe->fetchrow_array()) { print @array; } $exe->finish; $dbh->disconnect; print ""; print ""; plz help me