Select Code to Download

$soap = SOAP::Lite->new(
            uri   => ("http://www.webserviceX.NET"),
...
} else {
  print "match not OK: $match\n";
}

match is OK: 1
$VAR1 = '<NewDataSet>
...
  </Table>
</NewDataSet>';