#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new();
my $url = 'http://browseusers.myspace.com/Browse/Browse.aspx';
$mech->get($url);

my $form = $mech->form_name("frmBrowse");
$mech->set_fields( zipRadius => 5,
                   zipCode   => 92630,
                   Page      => 75,
                 );
my $response = $mech->submit();
print $response->content;