$dbh = DBI->connect( "dbi:mysql:user", "webserver", "pwd") or dienice("Can't connect: ",$dbh->errstr);
my $sub = param("sub");
my $add = param("add");
if($add){
   $sth = $dbh->do("update database set count=count+$add where address=\"$whatever\"")
}
if($sub){
   $sth = $dbh->do("update database set count=count-$sub where address=\"$whatever\"")
}