print "1..2\n";
print "ok 1 - First test\n";

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

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