#!/bin/env perl
# Usage: refresolver-client.pl refstring [...]

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

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

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