#!/usr/bin/perl

if (my $pid = fork) {
    print "Content-Type: text/plain\n\n";  

    print `lsof -p $$ -a -d 0-20`;     # for parent

    print `lsof -p $pid -a -d 0-20`;   # for child

    
} elsif (defined $pid) {

    # this creates a dup of file descriptor 2, as descriptor 3
    open STDERR2, ">&STDERR" or die "Can't dup STDERR: $!";

    close STDOUT;
    close STDERR;

    # this makes the parent process hang for 5 sec, because
    # Apache waits for the pipes associated with stdout/stderr
    # to be closed CGI-side
    sleep 5;
    
    exit;
    
} else {
    die "Couldn't fork: $!";
}