sub sub_menus {
  for (keys %INC) {
    next unless m/^Main|Addins/;
    s!/!::!g;
    s/\.pm$//;
    #print "<font face=\"Arial\" size=\"2\">$_<br></font>\n";
    eval { $_::runonce() };
  }
}