Select Code to Download

my $pid = open3(
   '<&STDIN',
...
   my $fr_chld_err = gensym(),
   'email'
)

#!/usr/bin/perl

...

waitpid($pid, 0)
   or die;

#!/usr/bin/perl

...
while (<STDIN>) {
   print STDERR (">> $_");
}

$ echo meow | wrapper
[STDOUT]
[STDERR]
>> meow