#!perl -w
use strict;
use PPerl qw(send_fd recv_fd s_pipe);

$| = 1;

s_pipe(my ($in, $out));

if (my $kid = fork()) { #papa
    open FOO, '<t/stevens.plx';
    send_fd($in, fileno FOO);
    waitpid $kid, 0;
}
else { # nicole
    my $fd = recv_fd($out);
    open BAR, "<&=$fd";
    while (<BAR>) {
        print "child: $_";
    }
}