Ah, now I see.

After a quick source dive, WWW::Scripter does not support <input type="button" for ->click:

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

You might want to report this as a bug via the bug tracker, but as a workaround, consider changing the code, so that it also can click on a button:

        next unless $_->type =~ /^(?:submit|image|button)\z/;
[download]

Hi

I have tried this code but still it is not working, it giving me previous page content.

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();
[download]

It is giving me  No clickable input with name successOK

Can you please point out what wrong I've done here?

Note the the module is conditionally calling croak where you don't.

You always call Carp::croak, no matter what.

Maybe you need:

if( ! $input) {
    Carp::croak("No clickable input with name $button")
};
[download]