open OLDERR, '>&STDERR' or croak "cannot dup stderr: $!";
  open STDERR, '>&STDOUT' or croak "cannot redirect stderr to stdout: $!";

##</code><code>##

  if (my $fh = new IO::File '-|') { ...

##</code><code>##

  package NVC::Log::STDERR;
  use strict;
  sub TIEHANDLE { 
    my $class = shift;
    bless {}, $class;
  } 
  sub PRINT { 
    my $self = shift;
    $log->die(join '', @_);
  }