Help for this page
$ cat ./wsdl.pl ... } 1;
#!/usr/bin/perl -w use lib qw(/var/www/html/); ... my $result = $wsdl->hi(); print $result; print "\n";
use lib qw(/var/www/html/test/); use lib qw(/var/www/html/test/soap/);