sub get_random_bytes {
103         my $length = shift;
104         if (eval 'require Crypt::Random; 1;') {
105                 return Crypt::Random::makerandom_octet( Length => $length);
106         }
107         elsif (eval 'require Bytes::Random::Secure; 1;') {
108                 return Bytes::Random::Secure::random_bytes($length);
109         }
110         else {
111                 die "No random source available!";
112         }
113 }