#!perl use SOAP::Lite; use SOAP::Transport::HTTP; #print "Content-type: text/plain\n\n"; SOAP::Transport::HTTP::CGI -> dispatch_to('Demo') -> handle; package Demo; print "Content-type: text/plain\n\n"; print "This is a test\n"; my $argument = pop; print "Argument is: $argument\n"; exit;