#!/usr/bin/perl -w

use strict;
use CGI qw(:standard);

print "Content-type: text/html\n\n";

my $direct = param('direction') || "undefined";
my $reason = param('why') || "undefined";
my $moves_left = param('moves') || "undefined";
my $time_left = param('time') || "undefined";
my $new_name = param('name') || "undefined";

print "you moved $direct<p>";
print "you came here to $reason<p>";
print "you had $moves_left moves left before becoming lost<p>";
print "you played for $time_left seconds<p>";
print "you said your name was $new_name<p>";