#!/usr/bin/perl
print "Content-type:text/html\r\n\r\n";
$ver = "verdana";
$fon = 3;
print "";
print "
";
print "
";
$message = "
Enter your choice of location from: supermarket, cibaa cafe, pub or bakery, second form enter agent from boy, girl,man , woman.";
$message2 = "
third slot is second agent, from girl, boy, man, woman; fourth slot is an event, choose from desired, hurt, stole, enjoyed, hatred, destroyed";
$label = "LOCATION--------------ACTOR1------------ACTOR2--------------EVENT";
print << "DOC";
$message
$message2
DOC
#################