while(my $c=CGI::Fast->new())
{
  # ... Viel alter Code

     # irgendwo
     #exit();
     goto ENDE;

  # ... Viel alter Code

  ENDE:
}