Select Code to Download

#!/usr/bin/perl -w
use strict;
...
while ( my $result = $search->next ) {
    print $result->rank, " ", $result->uri, "\n";
}