open (COUNTER, "D:/StronyKlientow/cematsil.bptnet.pl/main/Alicja/perl/counter.txt")||die"can not open!\n";
print COUNTER ("$count");
 close (COUNTER);