$sth = $dbh->prepare($tmp_query); 
  if (!$sth) {
     die "Error:" . $dbh->errstr . "\n";
  }
  if (!$sth->execute) {
     die "Error:" . $sth->errstr . "\n";
  }
  ...