$oZ3950 = Win32::OLE->new('VBZOOMC.ZoomFactory');
$oConnection = $oZ3950->CreateZoomConnection( 'z3950.loc.gov', 7090 )
  or die "CreateZoomConnection failed!\n";
$oConnection->SetOption( 'databaseName',          'Voyager' );
$oConnection->SetOption( 'preferredRecordSyntax', 'USmarc' );