use Facebook::Graph;
        use LWP::Simple;

        my $access_token = 'xxx';

        my $fb = Facebook::Graph->new(
         app_id          => 378913472248618,
         secret          => 'xxxx',
         postback => "https://www.facebook.com/connect/login_success.html"
        );

        $fb->access_token( $access_token ); 
        $fb->add_post
           ->set_message('I like beer.')
           ->publish;