DBI returns 0e0 as zero but true instead of a zero. Zero is not a error, like undef. this mean you can write

my $rv = $sth->execute or die "error";

# write $rv > 0 instead of $rv
if ( $rv > 0 ) {
  # do somethiing
}
[download]