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

        All Programs of mine are 'OSI Certified Open Source Software';
        you can redistribute them and/or modify them under the terms of
        The Artistic License, a copy of which is available at:
        http://www.opensource.org/licenses/index.html