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";