#!/usr/local/bin/perl
use soap::wsdl;

my $url_of_wsdl = undef;
my $result = undef;

my $url_of_wsdl = "<soapenv:Envelope xmlns:soapenv='http://schemas.xmlsoap.org/soap/envelope/' xmlns:ping='http://xmlschema.tmi.somemajorcompany.com/xsd/Enterprise/BaseTypes/types/ping_v1'>
   <soapenv:Header/>
   <soapenv:Body>
      <ping:ping/>
   </soapenv:Body>
</soapenv:Envelope>";

my $client = SOAP::WSDL->new(wsdl => $url_of_wsdl);
my $result = $client->$method(@arguments);