##

use SOAP::Lite ;
                                                                                
my $client = SOAP::Lite
               ->readable(1)
               ->uri('http://webservices.seek.com.au')
               ->autotype(0)
               ->on_action(sub { join '/', @_ })
               ->proxy('http://webservices.seek.com.au/marketsegment.asmx');
           $som = $client->GetMarketClassifiers(SOAP::Data->name('marketSegment','Main')->uri('http://webservices.seek.com.au'));
                                                                                
my $foo = $som->match('//GetMarketClassifiersResponse/SpecificClassification/list/');
                                                                                
foreach my $item ($foo->dataof('//listItem/'))
{
   print $item->attr->{id},"\n";
}