Select Code to Download

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

  DB<2> x @_
0  'Duplicate key on INSERT detected.
...
1  DBI::db=HASH(0x33c6af0)
     empty hash
2  undef