use DBI; # test connect to DB $server = "focsage"; $username = "medwards"; $password = "password"; #$schema = "User"; $query = "(1 = 1)"; my $dbh = DBI->connect('DBI:ODBC:$server','$username','$password') || die $!;