#!/usr/bin/perl
use strict;
use warnings;
use CGI;

my $q = CGI->new;
print $q->header;
if (my $pid = fork ) {
	print "Hello, world - PID $pid\n";
	exit;
}else{
	close STDOUT;
	close STDERR;
	close STDIN;
	sleep(20);
	exit;
}