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