Have a look at Sub::WrapPackages, or Hook::LexWrap. These should both help with what you're trying to do.

Also, if you're getting into logging, you could do much worse than looking at Log::Log4perl too.