#!/usr/bin/perl

use CGI qw(:standard);
if(cookie('MazeID')) {
  print redirect('http://127.0.0.1/cgi-bin/maze/submit.pl');
} else {
  print header(), start_html('Maze Entry Area');
  print h1('Welcome to the Maze');
  print start_form('POST','submit.pl');
  print p("What is your name? ",textfield("name"));
  print end_form();
  print end_html;
}