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();