Select Code to Download

#!/STANDARDINSTALLPATHTHATWORKS/5.26.1/bin/perl
use strict;
...
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
DBI->trace(2);
my $dbh = DBI->connect($dsn, $user, $pass) or die("Failed to connect t
+o DB: $!");

    DBI 1.643-nothread default trace level set to 0x0/2 (pid 87123 pi 
+0) at dbtest line 20
    -> DBI->connect(DBI:mysql:database=DB_REPLACED;host=HOSTNAME_REPLA
+CED;port=PORT_REPLACED, USER_REPLACED, ****, HASH(0x9094f0))
...
    <- disconnect_all= ( ) [0 items] (not implemented) at DBI.pm line 
+758
!   -> DESTROY in DBD::_::common for DBD::mysql::dr (DBI::dr=HASH(0xce
+2e38)~INNER)
!   <- DESTROY= ( undef ) [1 items] during global destruction

    DBI 1.639-nothread default trace level set to 0x0/2 (pid 87340 pi 
+0) at old_dbtest line 20
    -> DBI->connect(DBI:mysql:database=DB_REPLACED;host=HOSTNAME_REPLA
+CED;port=PORT_REPLACED, USER_REPLACED, ****)
...
    <- disconnect_all= ( ) [0 items] (not implemented) at DBI.pm line 
+755
!   -> DESTROY in DBD::_::common for DBD::mysql::dr (DBI::dr=HASH(0x9a
+c9f8)~INNER)
!   <- DESTROY= ( undef ) [1 items] during global destruction