open my $stdout, '>&STDOUT' or die $!;
open STDOUT, '>', $file or die $!;