#!/usr/bin/perl

use strict;
use WWW::Mechanize;

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

$mech->get($url);
$mech->submit_form(
        form_name => "loginform",
        fields    => {
                        email => $ARGV[0],
                        pass  => $ARGV[1]
                     }
);

print $mech->uri() . "\n";