Select Code to Download

my $pid = open2($JSREAD, $JSWRITE, q{perl -e"{ $_=<>; last if /^END$/;
+ ++$i; $m=qq{$i: $_}; warn $m; print $m; redo}"});