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

  my $proxy = "http://localhost:" . $ARGV[0] . "/";
  my $soap = SOAP::WSDL->new();
  $soap->wsdl('http://localhost:8000/');
  $soap->proxy($proxy);
  #$soap->on_action(sub { return $_[0].$_[1]; });      $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);
  }