my $pid = open(my $fr_chld, '-|',
    $^X, -le => '$|=1; { print ++$i; sleep 1; redo; }'
);