sub doit {
    my $dbh = shift;

    # IF ASYNC ERROR OCCURS, RETRY THIS MANY TIMES
    for my $retry (1..10) {   
     
      $dbh->execute();

      # LEAVE NOW IF THE ERROR (IF ANY) IS OTHER THAN "ASYNC"
      return $dbh->err unless $dbh->err == 2000;  

      # ASYNC ERROR ... TAKE A RANDOM SHORT NAP
      sleep(100*rand());      
    }

    # OH DEAR ...
    die "asynchronous I/O error";
  }