package WebserviceFunctions;

sub new { bless {}, shift; }

sub Hello {
    my ($s, $name) = @_;
    return "Hello, $name".$/;
}

sub Goodbye {
    my ($s, $name) = @_;
    return "Goodbye, $name".$/;
}

1;

##</code><code>##

#!/usr/bin/perl -w

use WSDL::Generator;
use CGI;
print CGI->header('text/xml');

my $init = {
    'schema_namesp' => "http://192.168.11.73/~efuentes/webservice/WebserviceFunctions.xsd",
    'services'      => "WebserviceFunctions",
    'service_name'  => "WebserviceFunctions",
    'target_namesp' => "http://192.168.11.73/~efuentes/webservice/",
    'documentation' => "Testing CGI SOAP Service",
    'location'      => "http://192.168.11.73/~efuentes/webservice"
};

my $w = WSDL::Generator->new($init);
WebserviceFunctions->Hello('Joe');
WebserviceFunctions->Goodbye('Joe');
print $w->get(WebserviceFunctions);