# snippet from script 1
print qq(<FORM METHOD="post" ACTION="http://localhost/~sm125/cgi-bin/frontpage.cgi"><h3>Enter: </h3><INPUT TYPE="TEXT" NAME="box" SIZE="10"><h3>Enter: </h3><INPUT TYPE="text" NAME="value" SIZE="10"><INPUT TYPE="SUBMIT" value="go"></FORM>);

##</code><code>##

# snippet from frontpage.cgi
#!/biol/programs/perl/bin/perl -w

use strict;

use CGI qw(:standard);

my $cgi;

$cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);

my $box = $cgi->param('box');
my $value = $cgi->param('value');


if (($box !~ /\w+/) && ($value !~ /\w+/))   {

 print "You haven't entered anything on the form";
 print STDOUT  $cgi->end_html;
 exit (0);
}