# Accessing the CrSeed.jws service at https://maullin.sii.cl/DTEWS/
# #
# # This script demonstrates the use of SOAP::WSDL in SOAP::Lite style.
#
 use warnings;
 use lib 'lib/';
 use lib '../lib';
 use File::Basename qw(dirname);
 use File::Spec;
 my $path = File::Spec->rel2abs( dirname __FILE__);

 # SOAP::Lite variant:
 # Note that you have to look both the proxy and the xmlns attribute
 # set on the GetWeather SOAP::Data object from the WSDL.

 use SOAP::Lite;
 $soap = SOAP::Lite->new()->on_action( sub { join'/', @_ } )
   ->proxy("https://maullin.sii.cl/DTEWS/CrSeed.jws");     # from WSDL
   $som = $soap->call(
       SOAP::Data->name('getSeed')
               ->attr({ xmlns => 'https://maullin.sii.cl' }),      # from WSDL
               );
               die "Error" if $som->fault();
               print $som->result();