open(my $err, '>', "foo.out"); 
open(STDERR, ">&", $err);