#!/usr/bin/perl -w

use strict;                                               
use FileHandle;                                            
                                                                    
open SAVED_STDOUT, ">&STDOUT" or die "couldn't save STDOUT: $!\n"; 
open SAVED_STDERR, ">&STDERR" or die "couldn't save STDERR: $!\n"; 
 
print SAVED_STDOUT "";  # to suppress warning about possible typo 
 
my $captured_output = ""; 
 
close STDOUT; 
open STDOUT, ">", \$captured_output or die "couldn't re-open STDOUT: $!\n"; 
 
close STDERR; 
open STDERR, ">&STDOUT" or die "couldn't re-open STDERR: $!\n"; 
 
print "testing stdout capture 1\n"; 
print STDERR "testing stderr capture\n"; 
print "testing stdout capture 2\n"; 
 
close STDOUT; open STDOUT, ">&SAVED_STDOUT"; 
close STDERR; open STDERR, ">&SAVED_STDERR"; 
 
print STDERR $captured_output, "\n";