Select Code to Download

my $pid = open(my $xx, "od -w1 -v -An -N5 -td1 < /dev/random  2>&1|")
  or die "fork: $!";
...
        }
}
close($xx) or die "command failed with ".($?>>8);

{
my $pid = open(my $xx, "sleep 10|")
...
}
XX:
print "here\n";

my $pid = open(my $xx, "sleep 10|")
  or die "fork: $!";
...
 
XX:
print "here\n";