#!/usr/bin/perl -w -I ../lib use WWW::Myspace; my $myspace = new WWW::Myspace( { auto_login => 0 } );; #$myspace->get_page( 'http://musicsearch.myspace.com/index.cfm?fuseaction=music.search' ); #$myspace->mech->form_name( 'myForm' ); #$myspace->mech->current_form->dump; #exit 0; # Get bands in 91604 my @bands = $myspace->search_music( { State => 'California', Country => 'US', localType => 'distanceZip', zip => 91604, distance => 50, OrderBy => 4 } ); if ( $myspace->error ) { print $myspace->current_page->content; die $myspace->error if ( $myspace->error ); } print "Got " . @bands . " bands\n"; foreach my $id ( @bands ) { print $id . "\n"; }