fabo.pl

use WWW::Facebook::API;
use Data::Dumper;

my $client = WWW::Facebook::API->new(
  desktop => 1,
  api_key => 'api.key',
  secret =>  'api.secret',
);

$client->auth->get_session;

my $friends_perl = $client->friends->get;
print Dumper $friends_perl;

my $notifications_perl = $client->notifications->get;
print Dumper $notifications_perl;

my $quotes_perl = $client->users->get_info(
  uids => $friends_perl,
  fields => ['quotes']
);
print Dumper $quotes_perl;

$client->auth->logout;