Perl WWW:Facebook:Api认证令牌

---------------这里收到了32长度的密钥验证令牌 REST auth.getSession调用期间出错： 参数= api_密钥：------- 身份验证令牌：---------------- 调用\u id:---------[类似于十进制值 格式：JSON 方法：facebook.auth.getSession v:1.0 回应= {错误代码：100，错误消息：无效参数，请求参数：[

   {"key":"api_key","value":"---------------"},
   {"key":"auth_token","value":"----------------------"},
   {"key":"call_id","value":"-------------------"},
   {"key":"format","value":"JSON"},
   {"key":"method","value":"facebook.auth.getSession"},
   {"key":"v","value":"1.0"},
   {"key":"sig","value":"f253b75e337776756a1fba88f085c269"}]}
    WWW::Facebook::API=HASH(0xa203ce8)

我需要转换收到的auth_令牌如何转换？如何验证收到的密钥是否正确

  #!/usr/bin/perl -w

 use strict;
 use warnings;
 use CGI;
 use WWW::Facebook::API;
 use WWW::Facebook::API::Auth;

 use HTTP::Request;
 use LWP;

 my $TMP    = $ENV{HOME}.'/tmp';

 my $facebook_api      = '--------';
 my $facebook_secret   = '-------';
 my $facebook_clientid = '--------';

 my $gmail_user        = '-------';
 my $gmail_password    = '--------';

 my $client = WWW::Facebook::API->new(

 desktop         => 1,
 api_version     => '1.0',
 api_key         => $facebook_api,
 secret          => $facebook_secret,
 throw_errors    => 1,     
 );

 $client->app_id($facebook_clientid);

 local $SIG{INT} = sub {
 print "Logging out of Facebookn";
 my $r = $client->auth->logout;
 exit(1);
  };

 my $token = $client->auth->create_token;
 print "$token \n";

 $client->auth->get_session($token);
 print "$client \n";

---

WWW:Facebook:Api在2010年3月12日的最后一个版本中已被弃用。Api似乎已损坏。您应该改用Facebook:：Graph