#!/usr/bin/perl -wT

use strict;
use CGI ':standard';

die "Could not fork()\n" unless defined (my $kidpid = fork);
if ($kidpid) {
	print header;
	print "done\n";
	print STDERR "Parent exited\n";
	exit;

}
else
{
	open STDOUT, '>/dev/null' or die "Can't open /dev/null: $!";
	open STDIN, '</dev/null' or die "Can't open /dev/null: $!";
	sleep 20;
	print STDERR "Child exited \n";
}