$tt->AddTool(
    -window => $main_window,
    -text   => "Text that pops up",
  );