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