Perl Program #!/usr/bin/perl use strict; use DBI; $dsn = "dbi:ODBC:DRIVER={FreeTDS};Server=$server;database=$database;"; $dbh = DBI->connect("$dsn","$user","$password") or die "\n$DBI::errstr\n";