#!/usr/bin/env perl

use strict;
use warnings;

use HTML::TreeBuilder::XPath;

my $html = '<select class="c-form__select" id="radius" name="radius" aria-label="Choose a distance from your postcode"><option value="">Distance (national)</option><option value="1">Within 1 mile</option><option value="5">Within 5 miles</option><option value="10">Within 10 miles</option><option value="15">Within 15 miles</option><option value="20">Within 20 miles</option><option value="25">Within 25 miles</option><option value="30">Within 30 miles</option><option value="35">Within 35 miles</option><option value="40">Within 40 miles</option><option value="45">Within 45 miles</option><option value="50">Within 50 miles</option><option value="55">Within 55 miles</option><option value="60">Within 60 miles</option><option value="70">Within 70 miles</option><option value="80">Within 80 miles</option><option value="90">Within 90 miles</option><option value="100">Within 100 miles</option><option value="200">Within 200 miles</option></select>';

my $TB = HTML::TreeBuilder::XPath->new(
	# if you have html5 with tags unknown to 'HTML::TreeBuilder' then uncomment following
	# ignore_unknown => 0,
);
$TB->parse($html) || die 'TB->parse()';

#my $xpath = '//form[@name="searchVehicles"]//select[@name="radius"]/option[@value!=""]/@value';
my $xpath = '//select[@name="radius"]//option[@value!=""]/@value';

my @values = $TB->findvalues($xpath);
print "found ".scalar(@values)." option values:\n";
foreach my $avalue (@values){
	print "value: '".$avalue."'\n";
}