try/catch and throw are implemented as eval and die in Perl.

The problem in your code was identified and solutions were provided. What makes them unacceptable?

Please stop putting your entire post in code tags. Simply place <p> at the start of every paragraph.