my $query = $db->prepare(" Update $WeatherDB
                           Set precip=$precip, high=$high, low=$low  
                           Where state='$state' AND city='$city'
                         ");
my $rows_changed = $update->execute() || die "execute failed..blah";
  # if the execute method on the $update query "succeeds", ie
  # the DB exists and this whole thing "makes sense", but just
  # didn't change any rows, you get the "TRUE" string and
  # Zero numeric reponse...(0E0);
if ($rows_changed == 0)
{
   print "could not update record with $state,$city! Not Found!\n";
}
elsif ($rows_changed >1)
{
   print "DB corruption! $rows_changed entries for $state,$city combo\n";
}

##</code><code>##

#!/usr/bin/perl -w
use strict;

my $a="0E0";
my $b ="00000035";
print "A as string=$a\n";
$a +=0;
print "A as numeric=$a\n";
$b +=0;
print "B=$b leading zeroes deleted\n";

# prints
# A as string=0E0
# A as numeric=0
# B=35 leading zeroes deleted