#!/usr/bin/perl

use strict;
use WWW::Mechanize;

my $url = "http://www.facebook.com";
my $mech = WWW::Mechanize->new();
my $result;

$mech->get($url);
$mech->submit_form(
        form_id => "login_form",
        fields    => {
                        email => $ARGV[0],
                        pass  => $ARGV[1]
                     }
);
print $mech->uri();
$result = $mech->content;
if($result =~ /Incorrect email/)
{
    print "Failed";
}
else
{
    print "Succsed";
}