my $db = new Win32::ODBC("dsn=A3T;UID=shenriks;PWD=changeme0");
  die "Cannot connect to dsn A3T" unless ( defined $db );