my $x = "";
  {
    local *STDOUT; 
    local *STDERR; 

    open STDOUT, ">>", \$x;
    open STDERR, ">>", \$x; 

    print "OUT-1\n"; 
    print STDERR "ERR-1\n"; 
    print "OUT-2\n"; 
  }
  print $x;