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