$ perl -wle'
    open(my $fh, "-|", sleep => 5) or die $!;
    print eof($fh)?1:0;
    print defined(scalar(<$fh>))?1:0;
    print eof($fh)?1:0
'
<<eof blocks for 5 seconds here>>
1
0
1