use warnings;
use strict;

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

my $id = '14632';

my $url = "http://home.myspace.com/index.cfm?".
          "fuseaction=user.viewfriends&".
          "friendID=" . $id;

$mech->get( $url );


my $form = $mech->form_name('aspnetForm');
$form->value('__EVENTTARGET' => 'ctl00$cpMain$pagerTop');
$form->value('__EVENTARGUMENT' => 2);
$mech->submit();

print $mech->content;