$sth = $dbh->prepare($sql);
if (defined $sth and not defined $dbh->err) { 
    my $rv = $sth->execute();
    # check for errors in the execute using $rv->errstr, etc.
}
else {
    print STDERR "Unable to prepare: $dbh->errstr\n";
}