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 ($viewstate) = $mech->content =~ m/name="__VIEWSTATE".+value="([^"]+)"/io;

# print "VIEWSTATE: $viewstate\n";

# Submit an dmove to page 2
$mech->submit_form( 
	#page => $url,
        form_name => 'aspnetForm',
        fields_ref => {
                            '__EVENTTARGET' => 'ctl00$cpMain$pagerTop',
                            '__EVENTARGUMENT' => 2,
                            '__VIEWSTATE' => $viewstate,
                        }
     );

#print $mech->content;