use strict;
use warnings;
+use Getopt::Long 2.33 qw(HelpMessage :config bundling);
use Template;
use List::Util;
use Data::Dumper;
+our $VERSION = '1.00';
+
+GetOptions(
+ "verbose|v!" => \our $DEBUG,
+) or HelpMessage(-exitval => 2);
+
my %area = (
fieldxmin => 45,
fieldxmax => 1590,