use CGI;
use File::Basename;
use LWP::UserAgent;
use strict;

my %postLoginData; #necessary post data for login
$postLoginData{'email'}=$email;
$postLoginData{'pass'}=$password;
$postLoginData{'persistent'}=1;
$postLoginData{'login'}='Login';

our $response; #holds the response the HTTP requests
#set the headers, let's make this a Firefox browser!
our @header = ('Referer'=>'http://www.facebook.com', 'User-Agent'=>$user_agent);

our $cookie_jar = HTTP::Cookies->new(file=>'fbkCookies.dat',autosave=>1, ignore_discard=>1);

our $browser = LWP::UserAgent->new; #init browser
$browser->cookie_jar($cookie_jar);

print " getting fb login...\n";
$browser->get('http://www.facebook.com/login.php',@header);

print " posting login request...\n";
#here we actually login!
$response = $browser->post('https://login.facebook.com/login.php',\%postLoginData,@header);


#was login successful?
if($response->content =~ /Incorrect Email/)
{
print "Login Failed...Quitting..\n";
exit;
}
else {
print "..and we are in!\n\n";
#let's go to the homepage
my $pageresponse = $browser->get( $url ,@header);

# this is where the error appears:
print $$pageresponse{_content};