You might want to take a look at Filter::Handle. It will let you use a sub to process STDOUT (or any other file handle) so you can log it to a file and then send it to the screen.