With Log::Dispatch you can write to 2 (or more) files at the same time, say something to STDOUT and to your log file.

You create a dispatcher object and add logfiles and log levels to it. Then you call the log method with message and log level and it sends the message to all files that meet the log level defined in the dispatcher object.

I used it because it's a pure perl module, and fairly simple to use.

zlr