Select Code to Download

my $db = new Win32::ODBC( "DSN=INFO;UID=id;PWD=password" );
       if( ! $db )
       {
           die "Error connecting: " . Win32::ODBC::Error() . "\n";
        }

my $dbh = DBI->connect("dbi:ODBC:INFO","username","password")
    or die "Unable to connect: " . $DBI::errstr . "\n";