$frame->repeat(30000,\&doit);
sub doit {
    &disk_space;
    &refresh_tally;
}