#!/usr/bin/perl -T

use strict;
use warnings;
use CGI::Fast;
use CGI;

my $cgi = new CGI;

while (my $q = new CGI::Fast) {

}