open my $oldSTDOUT, ">&STDOUT";
        open OLDERR, ">&",\*STDERR; 

        open(STDOUT, ">&", $oldSTDOUT) or warn("Can't open STDOUT");        
		open(STDERR, ">&OLDERR") or warn("Can't open STDERR");