Or use a Data Source Name. That's a Windows thing—try Control Panel, Administrative Tools, Data Sources (ODBC). Then

$dbh = DBI->connect("dbi:ODBC:$DSN");
[download]

The advantage is that you don't have to hardcode the connection details. If the server name should ever change on you, you can change your DSN, instead of hunting down all the references to it in your Perl code.