Tengo un programa en Perl que funciona con probabilidades que en ocasiones pueden ser muy pequeñas. Debido al error de redondeo, a veces una de las probabilidades resulta ser cero. Me gustaría hacer una comprobación de lo siguiente:

use constant TINY_FLOAT => 1e-200;
my $prob = calculate_prob();
if ( $prob == 0 ) {
    $prob = TINY_FLOAT;
}

Esto funciona bien, pero en realidad veo que Perl produce números que son más pequeños que 1e-200 (acabo de ver un 8.14e-314). Para mi aplicación, puedo cambiar calculadatos () para que devuelva el máximo de TINY_FLOAT y la probabilidad real, pero esto me dio curiosidad acerca de cómo se manejan los números de punto flotante en Perl.

¿Cuál es el valor de punto flotante positivo más pequeño en Perl? ¿Depende de la plataforma? Si es así, ¿hay un programa rápido que pueda usar para resolverlo en mi máquina?