open PIPE, "| cat" or die $!;

my $pid = fork();

if( $pid == 0 ) {
    # child
    close PIPE or die $!;
    exit 0;
}

sleep 1;
my $reaped = waitpid(-1, 0 );
print "pid $reaped\n";