#!/usr/bin/perl

  # why would you do this? it'll just messup the CGI form processing...
  # my $buffer;
  # read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});


use strict;
use warnings;

use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
my $method = lc( $cgi->request_method ); # why?

my $counter = 1;

print $cgi->header, $cgi->start_html({
    title  => "My Page",
    script => qq(var counter=$counter)});