my ($wtr, $rdr, $err);
$wtr = '<&';
$rdr = '>&';
my $pid = open3($wtr, $rdr, $err, $program, @arguments);
while (<$err>) {
   print STDERR $_;
   process_stderr($_);
}