sub PRINT {
    my $self = shift;  # the tied STDERR object
    errhandler(@_);
  }