#!/usr/bin/env perl
use strict;
use warnings;
use WWW::Mechanize::Chrome;

my $mech =  WWW::Mechanize::Chrome->new();

$mech->get('http://twitter.com');
$mech->form_number(1);
$mech->field('session[username_or_email]' => 'user');
$mech->field('session[password]' => 'password');
$mech->click({ selector => "form.LoginForm input.EdgeButton" });