#!/bin/env perl -w
# Usage: bibverify-client.pl bibcode [...]

use SOAP::Lite; 
use XML::Simple;

my $response = SOAP::Lite
    -> uri('http://ads.harvard.edu/BibVerifier')
    -> proxy('http://ads.harvard.edu/ws/bibserver')
    -> verify(@ARGV);

die $response->faultcode, ', ', $response->faultstring if ($response->fault);
print XMLout($response->result, noattr => 1);