#!/usr/bin/perl -w use WWW::Myspace; my $myspace = new WWW::Myspace( auto_login => 0 ); my $cool = $myspace->cool_new_people( 'US' ); foreach $person ( keys ( %{ $cool } ) ) { print $person . "\n"; }
#!/usr/bin/perl -w use WWW::Myspace; my $myspace = new WWW::Myspace( auto_login => 0 ); my $cool = $myspace->cool_new_people( 'US' ); foreach $person ( keys ( %{ $cool } ) ) { print $person . "\n"; }