Help for this page
use strict; use HTML::TokeParser; ... print Dumper (\%tokencount);
<html lang='en-US'> <head> ... <h1>Me not!</h1> </body> </html>
$VAR1 = { 'h1' => 2, ... 'title' => 1, 'h2' => 3 };