use HTML::Parser (); 

# Create parser object 
$p = HTML::Parser->new( ); 

$p->parse_file("default.htm");