use strict;
use DBI;
use warnings;
use diagnostics;

my $dsn       = 'MySQL';
my $user      = 'JHD';
my $password  = 'JHD';

my $dbh       = DBI->connect("DBI:ODBC:$dsn",$user,$password) ||
                die "Got error $DBI::errstr when connecting to $dsn\n";

exit (0);