use SOAP::Lite;
my $soap = SOAP::Lite->new( proxy => 'http://192.168.0.214/stockquote1.php');

$soap->on_action( sub { "urn:HelloWorld#sayHello" });
$soap->autotype(0)->readable(1);

my $som = $soap->call(
                 'CheckForSoftwareUpdates',
                 SOAP::Data->name('InstalledSoftware')->value(
                             \SOAP::Data->value([
                                          SOAP::Data->name('SoftwareName')->value('SampleSoftware1'),
                                          SOAP::Data->name('Version')->value('1.2.3'),
                                          SOAP::Data->name('OperatingSystem')->value('Windows_XP'),
                                          ])
                             )
                 );

if ($som->fault)
{
  die $som->fault->{ faultstring };
}
print $som->result, "\n";

<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:xsd="http://www.w3.org/2001/XMLSchema"
    soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
    xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
  <soap:Body>
    <CheckForSoftwareUpdates>
      <InstalledSoftware>
        <soapenc:Array>
          <SoftwareName>SampleSoftware1</SoftwareName>
          <Version>1.2.3</Version>
          <OperatingSystem>Windows_XP</OperatingSystem>
        </soapenc:Array>
      </InstalledSoftware>
    </CheckForSoftwareUpdates>
  </soap:Body>
</soap:Envelope>