use strict;
use warnings;

use WWW::Mechanize;
use Data::Dumper;

my $mech = WWW::Mechanize->new();

my $url = 'http://myspace.com/Modules/ViewFriends/FriendsView.aspx?%3ffuseacion=user.viewfriends&friendID=' . 16193600;
$mech->get( $url );

#print $mech->content();
# my $links = $mech->find_all_links();
# print Dumper($links);

my $next_link = $mech->find_link( text_regex => qr/Next/i );
if($next_link) {
	
my $url = $next_link->url();
if($url =~ /javascript:__doPostBack\('(.*)','(.*)'\)/) {
	
    my $target = $1;
    print "TARGET: $target\n";
    my $argument = $2;
    print "ARGUMENT: $argument\n";

    $mech->submit_form( {
	form_name => 'aspnetForm',
	fields_ref => {
			'__EVENTTARGET' => $target,
			'__EVENTARGUMENT' => $argument,
                      },
     } ) }
} 
else {
    print "no more links on page\n";
}