#!/usr/bin/perl -w
use strict;
use Log::Log4perl qw(:easy);
use WWW::Mechanize::Chrome;

my $url = "https://www.tenthousand.cc/products/interval-short";

Log::Log4perl->easy_init($ERROR);
my $mech = WWW::Mechanize::Chrome->new(headless => 1, launch_exe => 'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe');
my $post_response;

$post_response = $mech->get($url);
$post_response->is_success || die $post_response->status_line;


# step 1 - select color
$mech->click({id => 'ProductSelect-option-color-solar-8568844557'});

# step 2 - select size
$mech->click({id => 'ProductSelect-option-size-medium-8568844557'});

# step 3 - select inseam
$mech->click({id => 'ProductSelect-option-inseam-9-inch-8568844557'});

# step 4 - select liner/no liner
$mech->click({id => 'ProductSelect-option-liner-no-8568844557'});