#!/usr/bin/perl -w -I../lib # get_friends [ friendID ] # Returns your friends or the friends from the profile identified by # friendID # # Example: # get_friends # # get_friends 12345 use WWW::Myspace; my $myspace = new WWW::Myspace; unless ( $myspace->logged_in ) { die "Login failed\n" } my @friends = $myspace->get_friends( @ARGV ); warn $myspace->error if ( $myspace->error ); print "Got " . @friends . " friends:\n"; foreach ( @friends ) { print; print "\n"; }