use strict;
use warnings;

package MUCParser;
use base "HTML::Parser";

my $num_of_tags;
sub start
{
   $tag_count+=1;
}
sub num_of_tags 
{
    return $tag_count;
};