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