I'm trying to do some pretty simple screen-scraping, but I can't get by the login screen on Fitday.com. If I put in an incorrect username and password, I get a login error as expected, but if I put in a correct one, it keeps coming back as an invalid request. Any idea what I'm doing wrong?

(UPDATE: The error I'm receiving from $mech->res->status_line is "411 Length required.")

(Fitday accounts are free.)

#!/usr/bin/perl -w

use strict;

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

my $login = shift;
my $password = shift;

my $mech = WWW::Mechanize->new(cookie_jar => HTTP::Cookies->new);
$mech->agent("Firefox/1.0");

$mech->get( 'http://www.fitday.com/' );

$mech->field( 'LoginName', $login );
$mech->field( 'Password', $password);
$mech->field( 'SavePassword', 'on');

$mech->click();

print $mech->content();
[download]