sub find_item() {
    my $link = shift;
    for my $item ( $rss->{items} ) {
        $item->{link} eq $link and return $item;
    }
    return undef;
}