use Win32::ODBC;

$Data = new Win32::ODBC("DatbaseTest");

unless (defined($Data)) {
	print "Failed to connect to the DSN.\n";
	exit();
}

$command = qq{SELECT * FROM "Test Table" WHERE (("vacancy" = 'W9920') AND ("FullName" CONTAINS 'ke'))};

if (! $Data->Sql($command)){
	@FieldNames = $Data->FieldNames();

	while($Data->FetchRow()){
      	undef %Data;
            %record = $Data->DataHash();
            print "Name is $record{'FullName'}\n";

      }
    exit();
} else {
	print "Error:".Win32::ODBC::Error();
}