CGI Perl

  
  
  
  

Option

  

  
 
  

  
  
Option:  
  

  
  
  

  
  
  
  

#!/usr/bin/perl -w
use CGI;  
$form = new CGI;  
$favor = $form->param('pro');  
$wing  = $form->param('wing');  
print $form->header();  
print $form->start_html(-title=>'Political Candidate',-BGCOLOR=>'white');
print "

Option

\n";  
  
if ($favor eq "") {  
    print "Is in favor of: nothing

\n";  
} else {  
    print "Is: $favor

\n";  
}  
  
print "and leans to the $wing views.

\n";  
print $form->end_html();