[soap] asmx 와 soap::lite 사용

#!/usr/bin/perl -w use strict;

use SOAP::Lite 'trace', 'debug';

my $server = SOAP::Lite
    ->uri('http://ws.robstones-services.co.uk/External')    
    ->proxy('http://ws.robstones-services.co.uk/external.asmx');

my $returned = $server ->getCallList({ 'Username' => 'RobsUser', 'Password' => 'RobsPassword' });

foreach my $type ($returned->valueof('//getCallListResult/string'))
{
    next unless ($type); ## ignore any undefs
    print "$type\n";
 }