CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Using LI
    
  
  
web
  
Option 1
oop
  
mod

  
Project name:     

  
  
  
  

#!/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 "

    \n";  
    if ($web eq "yes") {  
        print "
  • web.

    \n";  
    }  
      
    if ($gui eq "yes") {  
        print "

  • GUI

    \n";  
    }  
      
    if ($oop eq "yes") {  
        print "

  • oop

    \n";  
    }  
      
    if ($mod eq "yes") {  
        print "

  • mod

    \n";  
    }  
    print "

\n";  
  
  
print "Estimated completion time for $proj: 5 March, 2025.";  
print "

\n";  # Paragraph  
  
# End HTML form.  
print $form->end_html();