#!/usr/bin/perl -w -I../lib
# real_name friendID
# Prints the friend's real name
#
# Example:
# real_name 12345
use WWW::Myspace;
my $myspace = new WWW::Myspace( auto_login => 0 );
if ( my $name = $myspace->get_real_name( @ARGV ) ) {
print "Real name: " . $name . "\n";
} else {
print "Couldn't find mention of their name on their profile\n";
}
die $myspace->error if $myspace->error;