my $resp = $ua->post('http://wm.letitbit.net/signin.php')->as_string; ["host" => "letitbit_net", "log" => $login, "pas" => $pass, "inout" => "Sign+In",])->as_string; wf($file, $resp); if ($resp =~ "http://wm.letitbit.net/?a=4")