Help for this page

Select Code to Download

Select or download this

$ perl -wle'
    open(my $fh, "-|", sleep => 5) or die $!;
...
1
0
1