#!/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();