sub loadmeal {
   my($meal) = $_[0];
   my($name,$value);
   open(meal,"/home/shaolin/public_html/monkmeals.txt");
LOOK FOR LEEMING=SOMETHING AND CHANGE IT TO LEEMING=$meal
  close(LANG);
}