$ cat ./wsdl.pl

#!/usr/bin/perl

use strict;
use warnings;

use Pod::WSDL;
my $pod = new Pod::WSDL(source => "./Test.pm",
        location => 'http://localhost/test/soap',
        pretty => 1,
        withDocumentation => 1);
print( $pod->WSDL );

$ cat Test.pm

package Test;

use dbS_web::Type;

=begin WSDL

        _IN wabbit $dbS_web::Type testing

=end WSDL

sub hi {
        my $out = "hi";

        return $out;
}

1;

##</code><code>##

#!/usr/bin/perl -w 
use lib qw(/var/www/html/);
use lib qw(/var/www/html/test/soap);
use SOAP::Lite; 
print "Content-type: text/html\r\n\r\n";
my $wsdl = SOAP::Lite->service("http://localhost/service.wsdl"); 
my $result = $wsdl->hi(); 
print $result;
print "\n";

##</code><code>##

use lib qw(/var/www/html/test/);
use lib qw(/var/www/html/test/soap/);