sub handle_error {
            my $errortext = shift;
            my $handle   = shift;
            my $dbh;
            my  $dbh = $handle->{'Database'};
            

##</code><code>##

  DB<2> x @_
0  'Duplicate key on INSERT detected.
    (Tue Jan 30 08:45:55 2024)'
1  DBI::db=HASH(0x33c6af0)
     empty hash
2  undef