use WWW:Mechanize
$website=WWW::Mechanize->new();
$website->get('http://www.website.com');

$link_id=0;
while(1)
	{
	$link_id++;
	if($website->follow_link(n=>$link_id))
		{
		do_something();
		$website->back();
		}
	else
		{
		last;
		}
	}