use WWW::Mechanize;
#use HTML::TokenParser;
my $agent = WWW::Mechanize->new;
$agent->get("http://www1.snapfish.com/welcomenphu");
$agent->form("form1");
$agent->field("emailaddress","me@mykingdom");
$agent->field("password","123");
$agent->click();
print "$agent->{content}";