#!/usr/bin/perl

use WWW::Mechanize;
use HTTP::Cookies;

my $email = " ";
my $password = " ";

my $url = "https://www.google.com/accounts/ServiceLoginBox?service=blogger&continue=http%3A%2F%2Fwww.blogger.com%2Floginz%3Fd%3Dhttp%253A%252F%252Fwww.blogger.com&alwf=true&uilel=3&skipvpage=true&rm=false&naui=8&showra=1&fpui=2&hl=en&nui=1&naui=8&roec=Unknown&alwf=true&service=blogger&continue=http%3A%2F%2Fwww.blogger.com%2Floginz%3Fd%3D%252Fstart&fpui=2&rm=false&alinsu=1&uilel=3&hl=en&skipvpage=true";
my $mech = WWW::Mechanize->new;
my $cookie_jar = HTTP::Cookies->new(
    'file' => 'c:/lwp_cookies.dat',
  );

$mech->agent('Mozilla/5.0(Windows; U; Windows NT 5.1; en-US) Gecko/20061206 Firefox/1.5.0.9');
$mech->cookie_jar($cookie_jar);
$mech->get($url);
$mech->set_fields(
	"Email" => "$email",
  	"Passwd" => "$password",
);
$mech->submit;
print $mech->content;