#!/usr/bin/perl -w

use Pod::WSDL;
use CGI;

print CGI->header('text/xml');

my $pod = new Pod::WSDL(source=> 'WebserviceFunctions.pm',
                        location=>'http://192.168.11.73/~efuentes/webservice',
                        pretty=>1,
                        withDocumentation=>1);

$pod->addNamespace('http://192.168.11.73/~efuentes/webservice/','WebserviceFunctions');

print $pod->WSDL;