#!/usr/bin/perl

$form = "<form name=\"nameform\" action=\"8a.pl\" method=\"get\"> Name: <input type=\"text\" name=\"name\"></input>   <input type=\"submit\" value=\"submit\"></input> </form>";

#extract the GET variables
@query = split (/&/, $ENV{'QUERY_STRING'}); foreach $str (@query) {

        ($name, $value) = split (/=/, $str);
        $FORM{$name} = $value;

}

#choose a random message.
$msg1 = "random message1<br>\n";
$msg2 = "random message2<br>\n";
$msg3 = "random message3<br>\n";
$msg4 = "random message4<br>\n";

$random = int (rand (4));

if ($random == 0) {

$msg = $msg1;
}
elsif ($random == 1) {

$msg = $msg2;
}
elsif ($random == 2) {

$msg = $msg3;
}
else {

$msg = $msg4;
}

#if no name entered, $msg must be blank if ($FORM{name} eq "") {

$msg = "";
}

$visitor_name = $FORM{name};

print "Content-type:text/html\n\n";
print "<html><head><title>Greetings</title></head>"; print "<body><p>";
print "$form </p><p>";
print "Welcome $visitor_name..... $msg"; print "</p></body></html>";