Select Code to Download

$dbh = DBI->Connect("DBI:mysql:strossus:localhost","strossus","passwor
+d")
    or die $DBI::errstr;
...
=
gold CHAR(40))')
    or die $dbh->errstr;

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
print header;
warningsToBrowser(1);