Select Code to Download

#!/usr/bin/perl
use warnings; use strict;
...

our $conn2 = DBI->connect($dbconnectionstring);
die($DBI::errstr) unless $conn2;

use Text::CSV_XS;

...

our $conn2 = DBI->connect($dsn, $user, $pass);
die($DBI::errstr) unless $conn2;