use WWW::Mechanize;my $agent = "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; .NET CLR 2.0.50727)";my $mech = WWW::Mechanize->new(agent=>$agent);$mech->get( $url );$mech->set_visible( $user, $pass ) ;$mech->click( "Login_button" , 0 , 0 );$mech->submit_form(form_name => "form2",fields=>{"mail" => "neko@neko.com"});my $html = $mech->content;$html =~ s/$str/$str\n
/;$mech->update_html( $html );$mech->submit_form(form_name => "form3",fields=>{"comment" => "nekoneko-"});$mech->back();$mech->reload();