if target of examines then chirp;

##chirp:
$woman = 69657;
$carry = (carry off,pick up,steal);
$bits = (chunks,cubes,pieces,bits,portions,hunks,lumps);
print "[$init_obj] watches [$actor] swoop down and $carry $bits of food from [$woman].";