sub click {
  my $input;
  my $button="successOK";
  my $form = $w->current_form;
  for ($form->inputs) {
        next unless $_->type =~ /^(?:submit|image|button)\z/;
        next if $button && $_->name ne $button;
        next if $_->disabled;
        $input = $_;
        last;
  }
Carp::croak("No clickable input with name $button");

if ($button && !$input)
	{
		print "##############OK####################i";
		print $w->content();
	}
else
	{
		print "######### NOT OK ###############";
	}
}
click();