Select Code to Download

package MyPack;
sub foo { use IPC::Open2; my ($in, $out); my $pid = open2($out, $in, q
+[program --unbuffered]); print $in q|some json|; my $result = <$out>;
+ warn "got [$result]\n"; close($in); close($out); waitpid($pid, 0); }
1;