la variable DIRECTORIO_LOGS la declaras dentro del sub Crear_Nuevas_Stats y la usas dentro de ese sub, así que debería de imprimirte el valor...
estás seguro que la línea 24 se ejectura ? porque está en el condicional $answer eq 'HosAPA01'...
Y separa las variables, no queda bien
print "Ruta: $DIRECTORIO_LOGS $dir_log_name\n";
