#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
$ver = "verdana";
$fon = 3;
print "";
print "\n";
print "Perl with applet\n";
print "\n";
print "Active rorschach blot:
";
# $ran3 = int($ran2);
print << "DOC";
What does this remind you of? Write the first thing that comes into your head
DOC
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n/ /g;
$request{$name} = $value;
}
$hello = "$request{'comments'}";
print "$hello";