#!/usr/bin/perl -w     

use Pod::WSDL;
use CGI;

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

my $pod = new Pod::WSDL(source=> 'WebServiceFunctions',
                        location=>'http://localhost/webservice_pod.pl',
                        pretty=>1,
                        withDocumentation=>1);

print $pod->WSDL;
1;