#!/usr/bin/perl
use warnings;
use strict;
use utf8;
use SOAP::Lite;
my $s=SOAP::Lite->new(
uri=>"http://localhost:12700",
proxy=>"http://localhost:12700?session=Test",
);
my $som = $s->commit();
die 'SOAP FAULT: ', $som->fault->{faultstring}, "\n", $som->fault->{detail}, "\n"
if $som->fault;
print $som;