D:\Perl\bin\stubmaker.pl http://webservices.seek.com.au/marketsegment.asmx?wsdl

##</code><code>##

use MarketSeg;

print MarketSeg::GetMarketClassifiers('Main Exec');

##</code><code>##

      -> call($method => map {@templates ? shift(@templates)->value($_) : $_} @_);

##</code><code>##

      -> call( SOAP::Data->name($method)->attr({xmlns => 'http://webservices.seek.com.au'}) => map {@templates ? shift(@templates)->value($_) : $_} @_);

##</code><code>##

print MarketSeg::GetMarketClassifiers('Main Exec');

##</code><code>##

my $params = SOAP::Data->new(name => 'marketSegment', value => 'Main Exec');
print MarketSeg::GetMarketClassifiers($params);