in reply to Re: SOAP::Lite - Finding callers IP
in thread SOAP::Lite - Finding callers IP

print_env.pl : 
print "Content-type: text/html\n\n";
print "<HTML> <HEAD><TITLE>Env</TITLE></HEAD> <BODY><TABLE>\n";
while (my ($k, $v) = each %ENV) {
    print "<TR><TD>$k</TD><TD> = $v</TD></TR>\n";
}
print "</TABLE></BODY></HTML>";

[download]

--
Jaap Karssenberg || Pardus (Larus)? <pardus@cpan.org>
>>>> Zoidberg: So many memories, so many strange fluids gushing out of patients' bodies.... <<<<

In Section Seekers of Perl Wisdom