eval {
    $sqlquery = "SOME UPDATE STATEMENT";
    my $newsth = $dbh->prepare($sqlquery);
    $newsth->execute or die "3";
};

print $query->redirect(-location=>"$redirecturl?error=$@") if $@;