#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;
use Getopt::Long;
use Data::Dumper;
use FindBin ();
[..]