python --version

#!/usr/bin/perl
use WWW::Mechanize;
my $puser = 'example';
my $ppass = 'example';
 
my $mech = WWW::Mechanize->new;
$mech->get('https://www.xxxxxx.com/index2.php');
$mech->form_id('login-form');
$mech->submit_form(
	fields	=>
	{
		'LoginForm[username]' => $puser,
		'LoginForm[password]' => $ppass,
		});

#http://www.perlmonks.org/bare/?node_id=985122
#!/usr/bin/perl
use WWW::Mechanize;
use HTTP::Cookies;
 
my $url = "https://accounts.google.com/ServiceLogin?service=mail&passi
+ve=true&rm=false&continue=http://mail.google.com/mail/&scc=1&ltmpl=de
+fault&ltmplcache=2";
my $username = 'example@gmail.com';
my $password = 'example';
 
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
 
$mech->form_id('gaia_loginform'); 
$mech->field("Email", $username);
$mech->field("Passwd", $password);
$mech->click;