use warnings;
use strict;

use Win32::IE::Mechanize;
my $ie;

my $id = ' 14632';
my $max_page = 9;

$ie = Win32::IE::Mechanize->new( visible => 0 );

my $url = 'http://myspace.com/Modules/ViewFriends/FriendsView.aspx?%3ffuseacion=user.viewfriends&friendID=' . $id;

$ie->get( $url );

sleep 1;

my $count = 0;
my $i = 0;
    
for (1..$max_page) {
    scrape_page($_, $max_page);
}

sub scrape_page {
	
    my ($page, $max) = @_;

    print "Looking at $page ...\n";

    if ($page > 1 ) {

	$ie->follow_link( url => 'javascript:__doPostBack(\'ctl00$cpMain$pagerBottom\',\'' . $page . '\')' );

    }

    sleep 1;

    my @data = split(/\n/, $ie->content());
    foreach (@data) {
	chomp;
	if (/<A href=\"http:\/\/profile\.myspace\.com\/index\.cfm\?fuseaction=user.viewprofile&amp;friendid=(.*?)\">(.*?)<\/A><BR>/i) {
	    print "ID: $1\n";
	}   
    }
}