#!/usr/bin/perl

use CGI ':standard'; 

print header;

$fname=param('fname');
$prez=param('prez');
$vice=param('vice'); 
$secretary=param('secretary');
$i=param('i');
print " president = $prez<hr>";
print " vice-president = $vice<hr>";
print " secretary = $secretary<hr>";

if ($i ==1){
open (DATA, ">>data.txt");
print DATA "$fname , $prez , $vice , $secretary";
close DATA;
}
print " thank you for voting";
print "<a href=www.smccme.edu>main page</a>";