Dear Monks

I'm trying to redirect both STDOUT and STDERR to the same variable. Here is the test code:

use strict;
use warnings;

my $out ;
{ local  *STDOUT ;
  local  *STDERR ;
  open   STDOUT, '>>', \$out or die "Can't open STDOUT: $!"; # line 28
  open   STDERR, '>>', \$out or die "Can't open STDERR $!"; # line 29
  select STDOUT; $| = 1;  # make unbuffered
  select STDERR; $| = 1;  # make unbuffered
  print "message1\n" ;
  warn  "error1\n"   ;
  print "message2\n" ;
}
print "Result: $out \n" ;
[download]

Output:

Use of uninitialized value in open at ./t2.pl line 29.
Result: message1
error1
message2
[download]

So, line 29 has a problem while line 28 has not, any suggestions why?

Next I tried to run it as a cgi program (with apache):

use CGI qw(:standard append add_parameter);
use strict ;
use warnings ;

print CGI::header() ;

my $out ;

{ local *STDOUT ;
  local *STDERR ;
  open (STDOUT,">>", \$out) ;
  open (STDERR,">>", \$out) ;
  select STDOUT; $| = 1;  # make unbuffered
  select STDERR; $| = 1;  # make unbuffered
  print "message1\n" ;
  warn "error1\n";
  print "message2\n" ;
}
print "Result: $out\n";
[download]

In the browser I get nothing(blank), but running it from the commandline I get what I expected:

$ ./t2.pl
Content-Type: text/html; charset=ISO-8859-1

Use of uninitialized value in open at ./t2.pl line 29.
Result: message1
error1
message2
[download]

But if I remove the line select STDERR; $| = 1; everything works fine in the browser too!
Any reason why ? or should I do this differently ?

Thnx a lot
LuCa

ps I'm using perl v5.8.8 on Linux

Update Thnx monks, thats what I needed!!