#!/usr/bin/perl --

use SOAP::Transport::HTTP;

SOAP::Transport::HTTP::CGI
        -> dispatch_to('test')
        -> handle();

package test;

sub function { return \%ENV; }

##</code><code>##

#!/usr/bin/perl --

use SOAP::Lite;
use Data::Dumper;

my $soap = SOAP::Lite->new(
        proxy => 'http://127.0.0.1/cgi-bin/soap.pl',
        uri => 'urn:/test' );
my $som = $soap->function();

print Dumper $som->result();