use strict;
use warnings;
+use open OUT => ':utf8', ':std';
use Data::Dumper;
our $VERSION = '1.01';
}
warn $@ if $@;
+$di{chr $_} = $_ for 32 .. 126;
+$di{'\\'.$_} = delete $di{$_} for '{', '}', '\\';
+
# optionally get unicode character information
my %info = eval {
require Unicode::UCD;