eval {
   $agent = WWW::Mechanize->new(autocheck=>1);
   $agent->cookie_jar(HTTP::Cookies->new());
   $agent->timeout(1); 

   # more stuff
}

if($@) {
   print STDERR "Something terrible happend: $@\n";
}

# go on