#!/usr/bin/env perl use v5.38.2; use File::Basename; use blib; use JapaChar; JapaChar->new->start;