serv.pl

#!/usr/bin/perl --
use strict;
use warnings;

use SOAP::Transport::HTTP;

my $daemon = SOAP::Transport::HTTP::Daemon->new(
    LocalAddr => '127.0.0.1',
    LocalPort => 1203,
    Reuse     => 1
)->dispatch_to('Demo');

print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;

#~ SOAP::Transport::HTTP::CGI
#~         -> dispatch_to('Demo')
#~         -> handle;

package Demo;
sub hi {
        return "Hello, world";
}