CABZON_1_WINDA1 2003-08-16T10:51:36.137Z 16 6 2003-08-16T10:51:36.137Z 16 5 ##

##

# set this to what resId we want to use
$resId = "met_tower";

@OperationInterval = qw(["2003-08-16T10:51:36.137Z", "16", "6"],
                        ["2003-08-16T10:51:36.137Z", "16", "5"]);


use SOAP::Lite;

my $soap = SOAP::Lite
        ->service("file:OperationsService.wsdl")
        ->xmlschema('2001');

my $som = $soap->getIntervalData($resId, @OperationInterval);

print $som;