Select Code to Download

$ perl -E'
   pipe($r, $w) or die $!;
...
   say "ok";
'
ok

$ perl -E'
   open(my $fh, "|-", "perl", "-e", "exit 123") or die $!;
...
   say "ok";
'
Error 123