#!perl

use strict;
use warnings;
use utf8;
use Data::Dumper qw/Dumper/;
use DateTime;
use SOAP::Lite 'trace', 'debug';

# Configurable parameters
my $username = 'username';
my $password = 'password';

# The location of the wsdl
my $wsdl = "https://monitor.econda-monitor.de/webservices/wsdl/Cancellation.wsdl";

# The namespace used for API headers.
my $apiNS = "webservices.econda.de";

# Set the authentication request headers 
my @headers = (
	SOAP::Header->name("username")->value($username)->uri($apiNS), 
	SOAP::Header->name("password")->value($password)->uri($apiNS),
);

# Make the Perl proxy for the service
my $service = SOAP::Lite->service($wsdl);

my $ordernr = "123456";
my $sum = 9.99;

my $result = $service->doCancellation(
	SOAP::Data->new(name => 'cancellationSum', value => $sum ),
	SOAP::Data->new(name => 'orderNo', value => $ordernr )
);

print $result->success();

exit(0);