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

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

package Services;
use strict;
use DBI;
use utf8;
use Data::Dumper;

my $STATUS  = "FAILED";
my $MESSAGE = "FAILED";

sub testing()
{

    my ($class, $message) = @_;

    my $log_file = "/tmp/tester.log";
    open (LOG, ">>$log_file") or die("Open failed for $log_file : $!");
    print LOG "testing() #01 message=$message\n";

    close(LOG);
  
    return SOAP::Data->name("Returned" => "Back at ya");
}