#!perl -w
use strict;
use Win32::OLE;
 
my $oZ3950 = Win32::OLE->new('VBZOOMC.ZoomFactory');
my $oConnection = $oZ3950->CreateZoomConnection('z3950.loc.gov', 7090);
$oConnection->SetOption('databaseName','Voyager');
$oConnection->SetOption('preferredRecordSyntax', 'USmarc');
my $oQuery = $oZ3950->CreateZoomQuery('@attr 1=7 0596000715');
my $oResult = $oConnection->Search($oQuery);
print $oResult->GetRecord(0)->XMLData->xml;