%self->{mech}->forms[0]


##</code><code>##

$self->{mech}->form[0]->{action} = bless(
	    do {(my $o = 'http://www.google.com;')}, 'URI::_foreign'
	    );