eval{
    $agent->field('field_name', 'foo')
};
if($@){
   if($@ =~ /No such field/i){
      print "Field missing: field_name\n";
   }else{
      print "Something else is wrong\n";
   }
}