use strict;
use warnings;
use WWW::Mechanize;

open IDS, '>>ids.txt';

my $mech = WWW::Mechanize->new();
my $url = q[http://www.hi5.com/friend/processSearch.do?searchNew=1&fromPage=%2Ffriend%2FWEB-INF%2Fsearch%2FsearchTotal.jsp&fromEmail=0&oldSearchString=&email=&name=&ageFrom=18&ageTo=35&gender=2&loveStatus=0&goals=&country=1000&zip=&city=&miles=0&miles=0];
my @agents = ('Windows IE 6', 'Windows Mozilla', 'Mac Safari', 'Mac Mozilla', 'Linux Mozilla', 'Linux Konqueror');

$mech->agent_alias($agents[int(rand(@agents))]);
$mech->get($url);

my $i = 0;
do {
    $i++;
    my @friends = $mech->content =~ m[Position\d+" href="/friend/p(\d+)\-\-]g;
    
    print IDS (join "\n", @friends)."\n";
} while ($mech->get('http://www.hi5.com/friend/processSearch.do?searchText=&searchType=advanced&offset='.$i.'0&qx=People+Search+'));

close IDS;