Code:

#!/usr/bin/perl
# ^^ Above is the path to perl interpreter
$countName = 'count.txt';
# ^^ Above is the name of file you want to save to nr. of 
counts
$variableName = 'count';
# above is the variable name you want to set to nr. of counts in flash
open(COUNT,"<$countName");
$count = <COUNT>;
close(COUNT);
$count++;
open(COUNT,">$countName");
print COUNT "$count";
close(COUNT);
print "Content-type: text/plain\n\n";
print "$variableName=$count";
exit;