<html>    
<body>  
<FORM METHOD="POST" ACTION="index.cgi">  
<INPUT NAME="web" TYPE="checkbox" VALUE="yes">web<br>  
<INPUT NAME="gui" TYPE="checkbox" VALUE="yes">Option 1
<INPUT NAME="oop" TYPE="checkbox" VALUE="yes">oop<br>  
<INPUT NAME="mod" TYPE="checkbox" VALUE="yes">mod<p>  
Project name:   <INPUT NAME="projectname">  
<p>  
<INPUT TYPE="submit" VALUE="Request Software">  
</FORM>  
</body>  
</html>

#!/usr/bin/perl -w

use CGI;  
  
$form = CGI->new();  
$web = $form->param('web');  
$gui = $form->param('gui');  
$oop = $form->param('oop');  
$mod = $form->param('mod');  
$proj = $form->param('projectname');  
  
# Print form header.  
print $form->header();  
  
print $form->start_html(title=>'This is the title', -BGCOLOR=>'white');
print "<UL>\n";  
if ($web eq "yes") {  
    print "<LI>web.<p>\n";  
}  
  
if ($gui eq "yes") {  
    print "<LI>GUI<p>\n";  
}  
  
if ($oop eq "yes") {  
    print "<LI>oop<p>\n";  
}  
  
if ($mod eq "yes") {  
    print "<LI>mod<p>\n";  
}  
print "</UL>\n";  
  
  
print "Estimated completion time for $proj: 5 March, 2025.";  
print "<p>\n";  # Paragraph  
  
# End HTML form.  
print $form->end_html();