12
my $db = new Win32::ODBC('test') or Win32::ODBC::DumpError();
12345
my $password = 'verysecretpassword';my $user = 'John';my $database_name = 'test';my $db = new Win32::ODBC("DSN=$database_name;UID=$user;PWD=$password") or Win32::ODBC::DumpError();