use SOAP::WSDL;
  use Data::Dumper;
  use strict;

  my $soap = SOAP::WSDL->new();
  $soap->wsdl('http://server/path/to.wsdl');
  $soap->on_action(sub { return $_[0].$_[1]; });      # I find this helps with .NET services.
  $soap->proxy('http://server/path/to/service.asmx'); # For speed: not necessary as SOAP::WSDL can find it in the WSDL.
  $soap->wsdlinit(caching => 1);

  my $som = $soap->SampleTest({ Name => 'Nathan', Age => 22});
  if ($som->fault) {
    print "SampleTest Error: ".$som->faultstring."\n";
  } else {
    print Dumper($som->paramsall);
  }