package MUCParser;
use strict;
use base 'HTML::Parser';

use vars '$tag_count';

sub new {
    my ($class,@args) = @_;
    ...
    my $self = $class->SUPER::new(@args);
};

sub num_of_tags {
    return $tag_count;
};