#! /usr/bin/perl

use LWP::UserAgent; 
use HTTP::Response;
use HTTP::Request;
use URI::URL;

$request = "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>";
$request .= "<soap:Envelope xmlns:soap=\"http://schemas.xmlsoap.org/soap/envelope/\" xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\">";
$request .= "<soap:Body xmlns=\"http://opcfoundation.org/webservices/XMLDA/1.0/\">";
#$request .= " <GetStatus xmlns=\"http://opcfoundation.org/webservices/XMLDA/1.0/\"/>";
$request .= "<Browse BrowseFilter=\"all\" ItemName=\"\" ItemPath=\"\" MaxElementsReturned=\"0\" ReturnAllProperties=\"false\" ReturnErrorText=\"false\" ReturnPropertyValues=\"false\"/>";
$request .= "</soap:Body></soap:Envelope>";

$ua = new LWP::UserAgent;
$url = new URI::URL("http://192.168.25.7:81/opcxmlda/");
#$url = new URI::URL("http://192.168.25.7:81/opcxmlda/OPCServer.WinCC");
$hdr = new HTTP::Headers();
$req = new HTTP::Request("POST", $url, $hdr, $request);
$resp=$ua->request($req);
print $resp->content;