Select Code to Download

my $dbh = DBI->connect("DBI:$dbType:$dbName:$dbHost",
                        $dbUser, $dbPass,
                        { RaiseError => 1 }) or
          die "DBI Connect Error", $DBI::errstr, "\n";