my($dbh, $sth);