CPAN RT

Tie a filehandle so that whatever is printed to it is instead logged via Log4perl,
as recommended by Log::Log4Perl::FAQ,
except that using the filehandle you tie as an appender will not cause infinite recursion.