#!/usr/bin/perl -w

use strict;
use URI;
use LWP::Simple;
use JSON; # imports encode_json, decode_json, to_json and from_json.

use CGI;
use CGI::Carp qw(fatalsToBrowser); 
my $cgi = new CGI;
print $cgi->header( { -type=>'text/html'} );

my $access_token = 'XXXX'; 

my $response = get(build_query('https://graph.facebook.com/my/feed',
 #name => 'HEADER',
 #picture => 'http://my.de/image/img.jpg',
 access_token => $access_token,
 message      => 'MESSAGE',
 link         => 'http://my.de/',
 method       => 'post'
));

print "Feedback post: $response";


sub build_query {
 my $uri = URI->new(shift);
 $uri->query_form(@_);
 return $uri->as_string;
}

exit 0;