#!/usr/bin/perl -w 
print "Content-Type: text/html\n\n"; 
my $x = 0; 
f (); 
exit (0); 

sub f 
{
     print $x++, "\n"; 
}