Select Code to Download

use DbConn;
use Data::Dumper;
...
         print "Timed out.\n";
} else {                                print "Connected Successfully\
+n";
}

package DbConn;
use DBI;
...
        return $dbh;                 #return the database handle
}
1;