Bibcode Verification

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

print XMLout($response->result, noattr => 1);
Example of client usage:
$ bibverify-client.pl 2001ASPC..238..321D '2000A&AS..143...41K' <opt> <anon> <input>2001ASPC..238..321D</input> <bibcode>2001adass..10..321D</bibcode> <url>http://adsabs.harvard.edu/cgi-bin/bib_query?2001adass..10..321D</url> </anon> <anon> <input>2000A&amp;AS..143...41K</input> <bibcode>2000A&amp;AS..143...41K</bibcode> <url>http://adsabs.harvard.edu/cgi-bin/bib_query?2000A%26AS..143...41K</url> </anon> </opt> </PLAINTEXT> </BLOCKQUOTE> </BODY> </HTML>