#!/usr/bin/perl

use Facebook::Graph;
use CGI;

my $q = new CGI;

my $APP_ID = "MY_SECRET_APP_ID";
my $SECRET = "MY_SECRET_CODE";
my $POSTBACK_URL = "http://my.own.domain.com/postback.pl";

 my $fb = Facebook::Graph->new(
    app_id          => $APP_ID,
    secret          => $SECRET,
    postback        => $POSTBACK_URL,
 );

 my $uri = $fb
    ->authorize
    ->extend_permissions(qw(offline_access publish_stream email user_location))
    ->uri_as_string;

print $q->redirect($uri);


##</code><code>##

#!/usr/bin/perl

use strict;
use HTTP::Request::Common;
use CGI;
use Facebook::Graph;

my $APP_ID = "MY_SECRET_APP_ID";
my $SECRET = "MY_SECRET_CODE";

#
# Am I doing anything wrong here by setting postback script 
# pointing to a different domain
#
my $POSTBACK_URL = "http://some.another.domain.com/postback.pl";

my $fb = Facebook::Graph->new(
    app_id          => $APP_ID,
    secret          => $SECRET,
    postback        => $POSTBACK_URL,
);

my $q = new CGI;
my $params = $q->Vars;

my $code = $params->{'code'};

$fb->request_access_token($code);
my $token = $fb->access_token;
$fb->request_extended_access_token($token);

my $user = $fb->fetch('me');

#register data on amateur;
my $login = $user->{'name'};
$login =~ s/\s//g;

my %register = (
        login => $login,
        firstname => $user->{'first_name'},
        lastname => $user->{'last_name'},
        email => $user->{'email'},
        action => 'register'
);

print $q->redirect("http://my.own.domain.com/cgi/fb.cgi?login=dummyuser&msg=201");