sub Schedule {
        my ($self) = @_;

        $self->addTab(\&WatchLog);
        $self->addTab(\&SendEmail);
}

sub WatchLog {
...
}

sub SendEmail {
...
}

sub addTab {
...
}

sub go {
        my ($self) = @_;

        foreach my $code (@{$self->{CODETAB}}){
               &{$code}($self))
        }
}