my $pod = Pod::WSDL->new(
        source            => 'My::Module',
        location          => 'http://my/soap.cgi'
        pretty            => 1,
        withDocumentation => 1,
    );

    print CGI::header('text/xml');
    print $pod->WSDL;