Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$client->auth->get_session( $client->auth->create_token);
my $friends_perl = $client->friends->get;
print Dumper $friends_perl;

Error during REST auth.getSession call:
params = 
...
        v:1.0
response =
{"error_code":100,"error_msg":"Invalid parameter","request_args":[{"ke
+y":"api_key","value":"593556437357708"},{"key":"auth_token","value":"
+ff943e34a13a09db5183759758c1114e"},{"key":"call_id","value":"13797350
+54.13075"},{"key":"format","value":"JSON"},{"key":"method","value":"f
+acebook.auth.getSession"},{"key":"v","value":"1.0"},{"key":"sig","val
+ue":"413ab39f44795539e74abd4de1be79ed"}]}