While others have posted links to other code that achieves physi's desired result, there is something which I think needs to be addressed in your code. While it certainly works and allows for a range of exit result eventualities, it does raise the age-old ire of using temporary files on systems. That is, the use of tempoary files with either predictable or known file names can allow for the trapping and redirection of output code.

Issues pertaining to the use of temporary files have been covered in a number of threads both on Perl Monks and on news groups, including here and here. I would also recommend having a look at the POD documentation for the File::Temp module which discusses temporary file issues.

I just wish I had saved the thread from comp.lang.perl.moderated that dealt with this issue in detail. At the very least I hope I have got you thinking ...