use Win32::ODBC;
if (Win32::ODBC::ConfigDSN( ODBC_ADD_SYS_DSN,
                            "SQL Server",
                            ("DSN=MyDSN",
                             "DESCRIPTION=none",
                             "SERVER=Machine1",
                             "DATABASE=db1",
                             "UID=sa",
                             "PWD=sa")
                           )) {
   print "$dsn was created successfully.\n";
}
else {
   print "$dsn could not be created.\n";
}