#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;

my $ua_blogger = LWP::UserAgent->new;
$ua_blogger->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8) Gecko/20051111 Firefox/1.5");

my $login = 'myusername';
my $pass = 'secret';

#going to main page and recieving cookies from Blogger
#and Google page address in HTML iframe element

my $request = HTTP::Request->new( GET => "https://www.blogger.com/start" );
my $response = $ua_blogger->request($request);

my ($google_url) = $response->content =~ m{<iframe src="(.+?)"};

#getting cookies from Google and main auth form

$request = HTTP::Request->new( GET => $google_url );
$request->header('Referer' => 'https://www.blogger.com/start');
$response = $ua_blogger->request($request);

#but at this point i recieve wrong page:
#1. The page has different title
#    a) in browser it's "Blogger Login Frame"
#    b) script recive "Google Accounts"
#2. and it's missing very significance form elements
#    a) normal form
#    b) some fields are missing (e.g. <input type="hidden" name="continue" value="...">