use open qw( :std :utf8 );
use experimental qw( lexical_subs );
-our $VERSION = '1.05';
+our $VERSION = '1.06';
use Getopt::Long '2.33', qw( :config gnu_getopt );
my %opt;
'signal-stat=s',
'unmodified|u!',
'width|w=i',
+ 'version' => sub {
+ say "barcat version $VERSION";
+ exit;
+ },
'usage|h' => sub {
local $/;
my $pod = readline *DATA;