#!/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;

##</code><code>##

Error during REST auth.getSession call:
params = 
        api_key:593556437357708
        auth_token:ff943e34a13a09db5183759758c1114e
        call_id:1379735054.13075
        format:JSON
        method:facebook.auth.getSession
        v:1.0
response =
{"error_code":100,"error_msg":"Invalid parameter","request_args":[{"key":"api_key","value":"593556437357708"},{"key":"auth_token","value":"ff943e34a13a09db5183759758c1114e"},{"key":"call_id","value":"1379735054.13075"},{"key":"format","value":"JSON"},{"key":"method","value":"facebook.auth.getSession"},{"key":"v","value":"1.0"},{"key":"sig","value":"413ab39f44795539e74abd4de1be79ed"}]}