#!/usr/bin/perl

open(LOG2, ">>humor_logs/counter.log2");
foreach (sort(keys %ENV)) { print LOG2 "$_: $ENV{$_}<br>\n"; } 
if ($ENV{'CONTENT_LENGTH'}) 
{ print LOG2 "&lt;STDIN&gt;: ", <STDIN>, "<br>\n"; }
print LOG2 "****************************\n\n";
close(LOG2);

exit(0);