Help for this page

Select Code to Download

Select or download this

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

Select or download this

  tie *STDERR, 'My::Tie::Class';
  SomeModule::do_something();
  untie *STDERR;