use Test::More tests => 2;

ok(1, "First test");

$pid = open( CHILD, "|-" );
$SIG{PIPE} = 'IGNORE';

if ($pid) {    # parent
    print CHILD "test\n";
    close CHILD;
    exit 0;
}

# child process

ok(1, "Second test");