use Win32::ODBC;

my $db = new Win32::ODBC("DSN=MyDataDSN;UID=user;PWD=password") || die Win32::ODBC::Error();