gistfile1.txt

$ perl -Mfeature=:all -Mojo -E 'say r g("mojolicio.us")->dom("*")->type->reduce(sub ($a, $b) { $a->{$b}++; $a }, {})'
The signatures feature is experimental at -e line 1.
{
  "a" => 17,
  "blockquote" => 1,
  "body" => 1,
  "div" => 7,
  "form" => 1,
  "h1" => 2,
  "h2" => 4,
  "head" => 1,
  "html" => 1,
  "img" => 5,
  "input" => 3,
  "li" => 7,
  "link" => 3,
  "p" => 9,
  "pre" => 4,
  "script" => 6,
  "style" => 2,
  "title" => 1,
  "ul" => 1
}