use HTTP::Cookies; 
use LWP::UserAgent;
use IO::Handle;

my $browser = LWP::UserAgent->new(); 
my $cookies = HTTP::Cookies->new(); 
$browser->cookie_jar($cookies); 
 
open(ID, ">id.txt");
ID->autoflush(1);
my $url = 'http://hi5.com/friend/processSearch.do?searchNew=1&fromPage=%2Ffriend%2FWEB-INF%2Fsearch%2FsearchTotal.jsp&fromEmail=0&oldSearchString=&email=&name=&ageFrom=25&ageTo=55&gender=0&loveStatus=1069&goals=&country=1030&zip=&city=&miles=0&miles=0';

my $response = $browser->get($url)->as_string;

while($response =~ /<a href="javascript:paginatePeople\('(\d+)',''\);" class="link_pagination_arrow"> Next &gt;<\/a>/) {
    my $nx=$1;
    while($response =~ /title=".*?" href="\/friend\/p(\d+)/g) {
        print ID $1."\n";
    }
    $response = $browser->get('http://hi5.com/friend/processSearch.do?searchText=&searchType=advanced&offset='.$nx.'&qx=People+Search+')->as_string;
}