Contents of /gpg/random-passphrase

#!/usr/bin/perl -w
use strict;

my $size = 100;

binmode(STDOUT, ":utf8");

open(my $rf, '<', '/dev/random');
while ($size) {
    my $o;
    print STDERR "$size random bytes to read.\n";
    read $rf, $o, 1;
    print unpack("H*", $o);
    $size--;
}
close($rf);

1	#!/usr/bin/perl -w
2	use strict;
3
4	my $size = 100;
5
6	binmode(STDOUT, ":utf8");
7
8	open(my $rf, '<', '/dev/random');
9	while ($size) {
10	my $o;
11	print STDERR "$size random bytes to read.\n";
12	read $rf, $o, 1;
13	print unpack("H*", $o);
14	$size--;
15	}
16	close($rf);
17