A Perl DSNless connection by Stephen V. Arehart:

$DSN = 'driver={SQL Server};Server=Server_name;database=database_name;uid=username;pwd=password;';

$dbh = DBI -> connect("dbi:ODBC:$DSN") || die "Cannot Connect: $DBI::errstr\n";

You can redistribute all my programs, and/or modify them, under the terms of
	The Perl License, a copy of which is available via: http://dev.perl.org/licenses/