#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:all);
use Proc::Fork;

parent {
        print header;
        my $child_pid = shift;
        print "child [$child_pid] is sleeping.";
}

child {
        sleep 20;
};