#!/usr/bin/perl

use strict;
use CGI;

my $q = new CGI;

print $q->header();

print $q->start_html();

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

print "count: $count";

print $q->end_html;