#!/usr/bin/perl
use strict;
use if ($^V gt v5.7.3), Time::HiRes::, qw(time);