#!/usr/bin/env perl
use strict;
use warnings;
use Mojo::DOM;
use Mojo::Util qw/spurt/;
use Mojo::JSON qw/encode_json/;
use Mojo::UserAgent;
use 5.020;
use experimental 'postderef';
my $dom = Mojo::UserAgent->new->get('http://time.is/time_zones')->res->dom;
my @tzs;
for my $d ( $dom->find('.section')->each ) {
my $tz = { offset => $d->at('h1')->all_text };
my @countries = Mojo::DOM->new($d)
->wrap('