#!/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>";


##</code><code>##

print flashcount "count="$outcome ;  (error)
print flashcount "count" $outcome ;  (error)