## Initialize stuff

while (my $cgi = Fast::CGI->new) {

  # do something
  
  undef $cgi;
}

## cleanup stuff