my $HTMLParser = HTML::Parser->new(text_h => [sub {return shift;}, "text"], default_h => [""]);