my $m = WWW::Mechanize::Frames->new( autocheck=>1);
$m->get("http://www.mysite.com/");
my $html = $m->content;
$html =~ s[</body>][$form_data]g;
$m->update_html($html);
$m->form('LoginForm');         ## Line 41
$m->field('login','xxxxxxxx');
$m->field('password','xxxxxx');
$m->click();