open my $old_stderr, ">&STDERR";
open(STDERR, '>', 'NUL') or die $!;