#!/usr/bin/perl -w
use strict;
use WWW::Facebook::API;
use Data::Dumper;

my $api_key = '###############';
my $secret = '################################';

my $client = WWW::Facebook::API->new(
	desktop => 0,
	api_key => $api_key,
	secret => $secret,
);

$client->auth->get_session( $client->auth->create_token);
my $friends_perl = $client->friends->get;
print Dumper $friends_perl;