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";