package Stderr; sub new { bless {} } # Turn off stderr sub stderr_off { open(SAVEERR, ">&STDERR"); close(STDERR); } # Turn on stderr sub stderr_on { open(STDERR, ">&SAVEERR"); close(SAVEERR); } 1;