Select Code to Download

$dbh= DBI->connect("DBI:mysql:host=localhost;database=testsites","qaus
er","blah",{PrintError => 0, RaiseError => 1}) or die $DBI::errstr;
...
-and-

$sth = $dbh->prepare ($stmt) or die $dbh->errstr;