#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize;

my $ua = WWW::Mechanize->new();

$ua->get("https:\/\/hungergj.home.xs4all.nl\/test.htm"); 
$ua->click_button( number => 1 ); 
print $ua->title;
print "=================\n";;
$_=<STDIN>;

##</code><code>##

"click_button: No form has been selected at test button.pl line 12."