#!/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";
}