/usr/share/doc/libbytes-random-secure-perl/examples/random-sha512-oo.pl is in libbytes-random-secure-perl 0.28-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | use strict;
use warnings;
use Bytes::Random::Secure qw();
use Digest::SHA qw( sha512_base64 );
my $quantity = 128;
# Instantiate a random generator with a customized seed:
my $random = Bytes::Random::Secure->new( Bits => 64, NonBlocking => 1 );
# 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";
|