Select Code to Download

#!/usr/bin/env perl
use warnings;
...
for my $link (grep { $_->url } @links) {
    print $link->url, "\t", $link->text, "\n";
}