from the DBD::ODBC docs right, in the line right above the 'Random Links' section:

my $DSN = 'driver={SQL Server};Server=server_name;database=database_na
+me;uid=user;pwd=password;'; 
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die $DBI::errstr\n";
[download]

Hope that helps,
etm117

UPDATE: If I recall correctly, the server_name needs to be the name of your ODBC connection defined on the machine you are running the code.