my $sth = $dbh->prepare($sql) 
   || die print "$0:Error prepare sql [$DBI::errstr]\n";