my $pid = open(my $xx, "od -w1 -v -An -N5 -td1 < /dev/random 2>&1|") or die "fork: $!"; if( $pid ){ while(<$xx>){ print "read: $_"; } } close($xx) or die "command failed with ".($?>>8); #### { my $pid = open(my $xx, "sleep 10|") or die "fork: $!"; if( $pid ){ goto XX; while(<$xx>){ print "read: $_"; } } close($xx) or die "command failed with ".($?>>8); } XX: print "here\n"; #### my $pid = open(my $xx, "sleep 10|") or die "fork: $!"; if( $pid ){ goto XX; while(<$xx>){ print "read: $_"; } } close($xx) or die "command failed with ".($?>>8); XX: print "here\n";