# 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); }