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;