[root@mailer2-sb root]# perl -MSOAP -e 'print "Hello, with SOAP!"'
Can't locate SOAP/Transport.pm in @INC (@INC contains: ....
##</code><code>##

cpan> install SOAP::Transport
CPAN: Storable loaded ok
Going to read /root/.cpan/Metadata
  Database was generated on Mon, 10 Apr 2006 18:46:07 GMT
Warning: Cannot install SOAP::Transport, don't know what it is.
Try the command

    i /SOAP::Transport/

to find objects with matching identifiers.
##</code><code>##

package MyApp::WSDL;

use strict;
use Pod::WSDL;

sub handler : method
{
  my ($s, $r) = @_;
  
  my ($package) = $r->uri =~ m/^\/([^\?]+)/;
  $package =~ s/\//::/g;
  
  my $pod = Pod::WSDL->new(
    source            => $package,
    location          => "http://$ENV{HTTP_HOST}" . $r->uri,
    pretty            => 1,
    withDocumentation => 1,
  );

  print "content-type: text/xml\n\n";
  print $pod->WSDL;
  return 0;
}# end handler()

1;# return true: