open SAVE_OUT, '>&STDOUT';

      pipe READOUT,   WRITE;
      open STDOUT, '>&WRITE';
      close           WRITE;

      @result = &$code();

      close STDOUT;
      my @stdout = <READOUT>;

      open STDOUT, '>&SAVE_OUT';