#
# Note:  UNTESTED!!!
#
sub do_run
{
  # write file...

  local *OLDERR, *NEWERR;
  open(OLDERR, ">& STDERR") or die "Can't dup STDERR: $!";
  pipe(NEWERR, STDERR) or die "Can't pipe: $!";

  system "perl quick_run.perl";

  open(STDERR, ">& OLDERR") or die "Can't restore STDERR: $!";

  my @error_lines = <NEWERR>;
  return @error_lines;
}