JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr use strict; use warnings; use Bytes::Random::Secure qw( random_bytes ); use Digest::SHA qw( sha512_base64 ); my $quantity = 128; # Get a string of 128 random bytes. my $bytes = random_bytes($quantity); # And just for fun, generate a base64 encoding of a sha2-512 digest of the # random byte string. my $digest = sha512_base64( $bytes ); print "$digest\n";