Log in facebook

#!/usr/bin/perl -w
#
# # ===== READ ME =====
# # for enable ssl
# $>cpan install LWP::Protocol::https::Socket
#
#

use Data::Dumper;
use HTTP::Cookies;
use LWP::UserAgent;

my $cookie_jar = HTTP::Cookies->new(autosave =>1, ignore_discard=>1, hide_cookie2=>1);
my $browser = LWP::UserAgent->new(
  agent => 'Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/35.0.1916.153 Safari/537.36',#* useragent must lasted version
  timeout => 25,
  cookie_jar => $cookie_jar,
);

my $user = 'quantumzblue@gmail.com';
my $pass = 'k041887326k';

my $index = $browser->get('https://www.facebook.com/login.php?login_attempt=1')->content;
my ($code_lsd) = $index =~ /name="lsd" value="(.+?)"/ig;
my ($code_lgnrnd) = $index =~ /name="lgnrnd" value="(.+?)"/ig;

my $req = $browser->post('https://www.facebook.com/login.php?login_attempt=1',
  [
    email => $user,
    pass => $pass,
    charset_test => '%E2%82%AC%2C%C2%B4%2C%E2%82%AC%2C%C2%B4%2C%E6%B0%B4%2C%D0%94%2C%D0%84',
    lsd => $code_lsd,
    lgnrnd => $code_lgnrnd,
    locale => 'th_TH',
    persistent => '1',
    default_persistent => '1',

  ]
)->content;
my $res = $browser->get('https://www.facebook.com');
print $res->content;

sleep();

# some account disable login from another computer <checkpoint>

# check point flow
# my $checkpoint = $browser->get('https://www.facebook.com/checkpoint/?next');
# print Dumper($checkpoint);
#.
#.
#.
#.

#code here