#!/usr/bin/perl
open (COUNTING, "< D:\StronyKlientow\cematsil.bptnet.pl\main\Alicja\perl\counter.txt")||die"can not open";
$count = <COUNTING>;
close (COUNTING);