use strict;
use SOAP::Transport::HTTP;
use lib 'C:\Inetpub\cgi-bin\soap';
use Demo;
SOAP::Transport::HTTP::CGI
        -> dispatch_to(  'C:\Inetpub\cgi-bin\soap','Demo')
        -> handle;

use strict;
use warnings;

package Demo;

use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);

sub echo {
        my $self = shift;
        my $envelope = pop;
        my $str = $envelope->dataof("//echo/echoData")->value; # Parameter auslesen     
        return SOAP::Data->name("echoResult" => "Hallo $str"); # Tagname mit  Rückgabewert
}

sub hi {
        my $CTIME_String = localtime(time);
        my $str = "Hallo Welt. Aktuelle Zeit: $CTIME_String";
        return SOAP::Data->name("hiResult" => "$str");     
}

1;