use WWW::Facebook::API ;

use CGI ;

 

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

    'desktop'    => 0 ,

    'api_key'    => $id ,

    'secret'    => $secret

) ;

 

my $token = $client -> auth ( ) -> create_token ( ) ;