use warnings;
use strict;

use Log::Log4perl qw(:easy);
use WWW::Mechanize::Chrome;

Log::Log4perl->easy_init($ERROR);

my $server = 'http://devvps.ddns.net:3000';
my $url = "$server/test.html";

my $m = WWW::Mechanize::Chrome->new(
    autoclose => 0,
);

$m->get($url);

$m->click('test-button');