Select Code to Download

#!/usr/bin/perl

print "Content-type:text/html\n\n";
...
$dbh->disconnect();
print <"TESTING</br>">;
print "</body></html>";

Content-type:text/html

DBI::db=HASH(0x81dc3e0)->disconnect invalidates 1 active statement han
+dle (eithe
r destroy statement handles or call finish on them before disconnectin
+g) at ./new.response.cgi line 22.

$sth = $dbh->prepare(qq{
    SELECT * from login 
...

$sth->execute($logname)
    or die("Failed to execute: $DBI::errstr\n");