#!/usr/bin/perl
print "Content-type: text/html\n\n"; 
open(flashcount, "/var/www/html/log/flashcount.txt");
$count=<flashcount>;

$outcome = $count+1;
print $outcome;


close(flashcount);
open(flashcount,">/var/www/html/log/flashcount.txt");


print flashcount $outcome ;

print "</BODY>\n";
print "</HTML>";