in reply to sharing filehandles

CPAN has a number of packages that could help you. Log::Info is one such.

In Section Seekers of Perl Wisdom