#!/usr/bin/perl
use CGI qw(:standard :cgi-lib);

my $a;
while(1) {
  $a++;
}