sub FETCH {
        my $self = shift;
        if (time - $self->{last_update} > $WAIT_CACHE) {
            $self->{last_update} = time;
            my($str, $upt, $users, $one, $five, $fifteen) =
                get_uptime();

            my $up = $self->{up};
            $up->as_string($str);
            $up->uptime($upt);
            $up->users($users);
            $up->load('one', $one);
            $up->load('five', $five);
            $up->load('fifteen', $fifteen);
        }
        return $self->{up};
    }