#!/usr/bin/perl

use utf8; use 5.022;
use strict; use List::Util qw(max); use Date::Calc qw(Delta_Days);

say "FINISHED";
my $pause_here = <STDIN>;