Select Code to Download

#!/usr/bin/env perl
use utf8;
...
}

say "Tags are:\n\t", Mojo::DOM->new($data)->find('a')->map(attr=>'href
+')->uniq->sort->join("\n\t");

Mojo::DOM->new($data)->find('a')->map(attr=>'*')->join("\n\t");

my %attrs = "Tags are:\n\t", Mojo::DOM->new($data)->attr;
map{ print "(%s)/(%s)\n", $_, $attrs{$_} } sort keys %attrs;

my $dom = Mojo::DOM->new($data);
map{ say }  $dom->find('a')->first;
my $attrs = $dom->find('a')->first->attr;
map{ printf "(%s)/(%s)\n", $_, $attrs->{$_} } sort keys %$attrs;