use Feed;

my $feed = Feed->new;

while ($feed->set_next) {
    $feed->fetch;
}