use Win32::ODBC;

my $DSN = qq(DSN Name);
my $db;

if (!($db = new Win32::ODBC($DSN))){
    print "Connection Error: " . Win32::ODBC::Error . "\n";
    exit;
}

my $qry = qq(select * from table);

if ($db->Sql($qry)){
    print "SQL Error: " . $db->Error . "\n";
    $db->Close;
    exit;
}

while($db->FetchRow){
    my %record = $db->DataHash;
    print $record{FIELD};
    ... etc ...
}

$db->Close;