#!/strawberry/perl/bin/perl -w 
 
 
use strict; 
use WWW::Mechanize; 
use HTTP::Cookies; 
 
my $url = "http://www.facebook.com/groups/532874430060468/?_fb_noscript=1"; 
my $appurl = "http://www.facebook.com/groups/532874430060468/?_fb_noscript=1"; 
 
my $username = 'myemail'; 
my $password = 'mypassword'; 
 
my $mech = WWW::Mechanize->new(); 
$mech->cookie_jar(HTTP::Cookies->new()); 
$mech->get($url); 
$mech->form_name('menubar_login'); 
$mech->field(email => $username); 
$mech->field(pass => $password); 
$mech->click(); 
my $facebook_content = $mech->content(); 
# go to an app url 
$mech->get($appurl); 
my $app_content = $mech->content(); 
 
my $message = "test message please ignore\n\nhttp://www.domainname.co.uk/10/thumb1.png"; 
 
$mech->field(message => $message); 
 
$mech->click();

#!/strawberry/perl/bin/perl -w 
use CGI::Carp qw( fatalsToBrowser ); 
 
 
 
use strict; 
use warnings; 
use Facebook::Graph; 
use WWW::Mechanize; 
use HTTP::Cookies; 
use Crypt::SSLeay; 
use WWW::Facebook::API; 
use URI::Escape; 
use Data::Dumper; 
use CGI qw/ :standard /; 
 
 
 
my $cookie_jar = HTTP::Cookies->new;    #print $cookie_jar->as_string; 
 
###################################################################### 
# 
# SETTING PARAMS  #################################################### 
#--- Access token to be filled 
my $access_token=''; 
 
#--- APP info to be filled 
my $redirect_url=uri_escape('here'); 
my $facebook_application_secret='here'; 
my $facebook_application_id='here'; 
 
 
$access_token='here'; 
############ START AUTH - REQUEST ACCESS_TOKEN ######################### 
my $oauth_url    = 'https://graph.facebook.com/oauth/access_token?client_id='.$facebook_application_id.'&client_secret='.$facebook_application_secret.'&grant_type=client_credentials'; 
  
##############FACEBOOK API FOR SCRAPE/POST ############################## 
my $fb = Facebook::Graph->new( 
   secret      => $facebook_application_secret, 
   app_id      => $facebook_application_id, 
   postback    => $redirect_url, 
); 
 
 
my $au=$fb->authorize(); 
 my $uri = $fb 
    ->authorize 
    ->extend_permissions(qw(offline_access publish_stream)) 
    ->uri_as_string; 
 
 
 #my $token_response_object = $fb->request_access_token($au->postback); 
## Setting Acces Token 
$fb->access_token($access_token); 
 
 
### FETCH USER/GROUP PAGE  ######## 
my $user = $fb->fetch('me'); 
my $perl_page = $fb->fetch('here'); 
 
 
print STDOUT "FETCH ME:  I'm $user->{name} and my ID is $user->{id} \n"; 
 
### POST IN MY HOME  ######## 
#my $perl_page=$fb->add_post 
#    ->set_message('here') 
#	->set_picture_uri('here') 
  #  ->set_link_uri('here') 
  #  ->set_link_name('here') 
  #  ->set_link_caption('here') 
  #  ->set_link_description('here') 
 #   ->publish; 
 
if ($perl_page->{_content}=~/error/) 
{ 
    print STDOUT "Error on posting on my wall: $perl_page->{_content}\n"; 
} 
### POSTING ON ANOTHER WALL TO is the FB id  ######## 
 my $perl_page2=$fb->add_post  #OK  groups/here 
    ->to('here')  #ID of the wall in which you want to post to. 
    ->set_message("here") 
	->set_picture_uri('here') 
	->set_link_uri('here') 
	->set_link_name('here') 
	->set_link_description('here') 
    ->publish; 
 if ($perl_page->{_content}=~/error/) 
{ 
    print STDOUT "Error on posting on my here wall: $perl_page->{_content}\n"; 
}   
#### POSTING ON MY HOME Message, picture,link,caption and descripion     
#my $response = $fb->add_post 
 #   ->set_message('here') 
 #   ->set_picture_uri('here') 
#   ->set_link_uri('here') 
 #   ->set_link_name('here') 
 #   ->set_link_caption('here') 
 #   ->set_link_description('here') 
 #   ->publish; 
 
my $a=1; 
 if ($perl_page->{_content}=~/error/) 
{ 
    print STDOUT "Error on posting on my wall: $perl_page->{_content}\n"; 
}