#!/usr/bin/perl

use CGI::Fast;
our $x;

while ( CGI::Fast->new() ) {
    print "Content-type: text/html\n\n";
    print ++$x;
}