sub gimmelinks {
my $html = shift;
my @linkywinkys;
use HTML::TokeParser;
my $parsee = HTML::TokeParser->new(\$html);
while (my $tag = $parsee->get_tag('a')) {
push @linkywinkys, {url => $tag->[1]->{href},
txt => $parsee->get_trimmed_text('/a')};
}
return @linkywinkys;
}