#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite;
use Data::Dumper;

my $hashref = {1 => 'one', 2 => 'two'};
my $arrayref = [1,2,3,4,5,6];

my $args = { hashref  => $hashref,
             arrayref => $arrayref};

my $soap = SOAP::Lite
    -> uri('https://domain.com/LogError')
    -> proxy('https://domain.com/path/to/logging_script');

my $res = $soap->test($args);

print $res->result;

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Transport::HTTP;
use Data::Dumper;

SOAP::Transport::HTTP::CGI
        -> dispatch_to('LogError')
        -> handle;

package LogError;

sub test {
    my ($class,$args) = @_;
    open(LOG,">>log.txt") || return "Can't open log";
    print LOG Data::Dumper::Dumper($args);
    print LOG "-"x60,"\n";
    close(LOG);
    return "Everything's OK";
}