use strict;
use warnings 'all';
use Win32;
use Win32::ODBC;
my $dsn = "LNB_HHH_APP";
if (!(my $db = new Win32::ODBC($dsn)))
{
    print "\nError connecting to $dsn\n\n";
    print "\nError: " . Win32::ODBC::Error() . "\n";
    exit;
}