#!/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);