use strict;
use warnings;
use Bytes::Random::Secure qw( random_string_from );
use feature qw/unicode_strings/;
binmode STDOUT, ':utf8';

my $string = random_string_from(
    join( '', map { chr($_ ) } 0 .. 0x10FFFF ),  # Generate a "bag" string.
    16384   # Return a string of 16384 octets from the "bag".
);

print $string, "\n";
print length($string), "\n";