Reference Resolution

Sample PERL SOAP client script for reference resolution. The script takes a list of freetext references as input from the command line. 
#!/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);

print XMLout($response->result, noattr => 1);
Example of client usage:
$ refresolver-client.pl 'Accomazzi, A., et al. 2000, A&AS, 143, 85' <opt> <anon> <input>Accomazzi, A., et al. 2000, A&AS, 143, 85</input> <bibcode>2000A&amp;AS..143...85A</bibcode> <status>Ok</status> <url>http://adsabs.harvard.edu/cgi-bin/bib_query?2000A%26AS..143...85A</url> </anon> </opt> </PLAINTEXT> </BLOCKQUOTE> </BODY> </HTML>