#!/usr/bin/perl -w
                                                                                
use CGI qw(:standard);
                                                                                
local $| = 1;
                                                                                
print header("text/plain"), "this is a test";
                                                                                
if (!fork )
{
   close STDOUT;
   close STDIN;
   close STDERR;
                                                                                
   # some long running processing ...

   for ( 1 ... 1000 )
   {
      sleep 1;
   }
}