#!/usr/bin/perl
use Fcntl ':flock';
open (FILE,"+<licznik2.dat");
flock (FILE,LOCK_EX);
$hits = <FILE>;
$hits = $hits+1;
seek (FILE,0,0);
print FILE $hits;
flock (FILE,LOCK_UN);
close (FILE);

$|=1;
print "Content-type: image/gif\n\n";
open (FLY,"| ./fly -q");
print FLY "new\n";
print FLY "size ",10*length($hits)+8,",20\n";
print FLY "fill 1,1,255,255,255\n";
print FLY "string 0,0,0,5,2,giant,$hits\n";
close (FLY);