exceptions in Mech

How can i prevent mechanize from catching exceptions and grab them myself? 
For example, when I try to trap an exception a la

           eval {
             $agent->form(1);
           };
           if ($@) {
             print "Yikes, we cant find the form on page: \n\n " .
             $agent->content . "\n\n";
           }

The Yikes will never execute, but instead I always see

There is no form numbered 1 at 
/usr/foo/bar/src/lib/Stuff.pm line 428

and the program dies immediately.

PS Mechanize is the greatest thing ever written

-- 
gedanken