#!perl
use strict;
use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
  -> dispatch_to('Demo')
  -> handle;
  
package Demo;
sub test {
  my ($self,$msg) = @_;
  return "msg : $msg\n"; 
}