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