$dbh->{AutoCommit}=0;
$dbh->{RaiseError}=1;
$dbh->{HandleError}=\&handle_error;

sub do_sql() {
       $dbh->do(qq{
           insert into stock_valid
           (last_year,orderid,suppliervatno,
           code,executedquantity,productprice)
           values
           (
             $last_year,$orderid,$suppliervatno,
             $code,$executedquantity,$productprice
           )
        });


       my $rowsupdated=$dbh->do(qq{
               update stock 
               set quantity=quantity+$executedquantity
               where code=$code
              });
      if ($rowsupdated==0) {
       sql_error($order,'no rows found','LocalError');
      }
$dbh->commit;
$dbh->disconnect;
}
 
 
sub sql_error() {
  $dbh->rollback;
  my $orderid=$dbh->quote(shift);
  my $resultreason=$dbh->quote(shift);
  my $resultcode=$dbh->quote(shift);
  
  $dbh->do(qq{
      insert into sql_error
      (orderid,resultreason,resultcode)
      values
      (
      $orderid,$resultreason,$resultcode
      )
    });

   $dbh->commit;
   $dbh->disconnect;
   die;
}