#!/usr/bin/perl

use CGI;
my $query = new CGI;
print $query->header; 
print "hello<br>";
main();

sub main
{
my $counter = int(rand(1e12));

print $counter;
}