Select Code to Download

print "Installed DB driver versions, and DBI version:\n";
DBI->installed_versions;

  Perl            : 5.028001    (x86_64-linux-gnu-thread-multi)
  OS              : linux       (4.9.0)
...
  DBD::File       : 0.44
  DBD::ExampleP   : 12.014311
  DBD::DBM        : 0.08

sub dbh_install( $self, $dbh ) {
    my $previous_handler = $dbh->{HandleError};
...
      }
  };
}