#!/usr/bin/perl

open(F, ">>/tmp/yourinfo.txt")
    or die;

open(JPG, ">/tmp/yourinfo.jpg")
    or die;

print "Content-Type: Text/Plain\n\n";
print F "[BEGIN]\n";

foreach $key (sort keys(%ENV))
{
	print
	    $key, ": ",
	    $ENV{$key}, "\n";

	print F
	    $key, ": ",
	    $ENV{$key}, "\n";

}

if($ENV{'REQUEST_METHOD'} eq 'POST')
{
    print "-- BEGIN POST--\n";
    print F "-- BEGIN POST--\n";
    while(<STDIN>){
	print JPG $_;
	$_ =~ s/[\r\n]+$//;
	print $_, "\n";
	print F $_, "\n";
    }
    print "-- END POST--\n";
    print F "-- END POST--\n";

}