CGI Simple User Counter
Simple User Counter
#!perl
$log ="counter.txt";
{
open LOG,"$log";
@log_lines = <LOG>;
close LOG;
foreach $line (@log_lines){
$next_number = $line +1;
}
}
open LOG,">$log";
print LOG "$FORM{'upfile1'};";
close LOG;
print "Content-type: text/html\n\n";
print "$next_number\n";