#!/usr/bin/perl -w
BEGIN {
    my $use_lib = "use lib qw[ /usr/lib/perl5/ /usr/lib/perl5/site_perl/5.8.5/ /usr/lib/perl5/site_perl/5.8.5/SOAP/ ]";
    eval $use_lib;
}
   use SOAP::Lite +trace =>   qw( all );
   use SOAP::Transport::HTTP;
   my $daemon = SOAP::Transport::HTTP::Daemon
      -> new (LocalAddr=>'localhost', LocalPort=>8001, listen=>5);
   $daemon -> dispatch_to('Hello::hello');
   print "Contact SOAP server at ", $daemon->url, "\n";
   $daemon->handle();