#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
&getFormData;
$val;
print "\n";
print "Perl with applet\n";
print "\n";
print "HELLO FROM PERL
";
print "\n";
print "How are you feeling? Indicate your current mood as an integer of value: 2, 4, 8, 12, 16, 20, 24, 30, 32, 40, 44, 48, 50, 56, 60, 64, 72, 80, 128, 144, 224";
print "
\n";
print " a low number signifies calm and a high number signifies anxiety. This landscape will soon be generated by evaluating external data, such as";
print "
\n";
print "news headlines, weather, ftse values and blog content";
print "Enter value:
";
$val = "$request{'make'}";
print << "DOC";
DOC
sub getFormData {
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;
}
}