Or to be a little bit more general for the original poster:

use DBI;
use strict;
use warnings;

my $dbh;
my $dsn = 'dbi:ODBC:web';
my $user = 'some';
my $pass = 'thing';

if ($dbi = DBI->connect($dsn,
                        $user,
                        $pass,
                        {AutoCommit=>1})) {

    print "connected to database $_\n";
}
else {
    print "did not connect to database\n";
    print "try connecting to another database here??\n";
}
[download]

HTH.