Computer Club Voting system

enter your password: ##

##

#!/usr/bin/perl

use CGI ':standard'; 

print header;

$name=param('name');
$pass=param('pass');
$i=param('i');


if ($pass == 777){
$i++;
print "";
print "welcome member please select your name ";
print "place your vote";
print "for president ";
print "for vice-president ";
print "for secretary treasurer ";
print " review your vote";

if ($i ==1){
open (DATA, ">>data.txt");
print DATA "$fname | $prez | $vice | $secretary";
close DATA;
}
}else{
print "you are not a member";
}

open (VOTE, ">>voted,txt");

##

##

#!/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";
print " vice-president = $vice";
print " secretary = $secretary";

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