OK, I get your point. That's a good solution. :-)

I never thought about using IO::Tee. I have learnt something new today. Thanks.