my $result;
$db = new Win32::ODBC("DSN=DSNName;UID=$login;PWD=$pass") or die;
print "Connected to DB! \n";
$db->Sql    ("Select name from person");
while ($db->FetchRow) {
    $result = $db->Data();
    print "Result is - $result";
}