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() };
  }
}

##</code><code>##

$SIG{__DIE__} = \&error_crash_trapper;
$SIG{__WARN__} = \&warn_crash_trapper;