my $id = $main_window->repeat(5, sub { $irc->do_one_loop });