#!/usr/bin/perl -T
use strict;
use warnings;

use FindBin;

my $whereami = $FindBin::Bin;
open my $fh, '<:encoding(UTF-8)', $whereami or die;