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";