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;
}