#!/usr/bin/perl
use strict;
use warnings;
use Fcntl qw(:flock);

my $count_file = "../data/counter.pl.txt";
if ( !-e $count_file ) {
    open my $fh, '>', $count_file or die "Can't create count file: $!";
    print $fh "0\n";
    close $fh;
}
open my $fh, "+<", $count_file or die "Can't open count file: $!";
flock( $fh, LOCK_EX ) or die "Can't lock count file: $!";
my $count = <$fh>;
chomp($count);
$count++;
seek( $fh, 0, 0 );
print $fh "$count\n";
#truncate($fh, tell($fh));
close $fh;

print "Content-Type: text/plain\n";
print "\n";

print "$count\n";