tie *STDERR,'MyRandomPackageName';

package MyRandomPackageName;
sub TIEHANDLE { bless {}; }
sub PRINT { CORE::print(@_); }
sub PRINTF{ CORE::print(sprintf@_); }
#etc