That's a bit like exercise 8 in Re: How's your Perl? (II), isn't it?
In reply to Re^3: Another eval $@ question by ambrus in thread Another eval $@ question by PugSA