sub get_connection {
    my ($DSN, $DBServer, $DBUser, $PW) = @_;
    my $dbh = DBI->connect("dbi:ODBC:Driver={SQL Server};Server=${DBServer};DSN=${DSN};UID=${DBUser};PWD=${PW};KeepAlive=1");
    return $dbh;
}