Eu tenho um script Perl onde eu mantenho um cache muito simples usando uma tabela de hash. Eu gostaria de limpar o hash, uma vez que ocupa mais de n bytes, para evitar Perl (32 bits) ficar sem memória e travar.

Eu posso verificar o número de pares de valores de chaves:

if (scalar keys %cache > $maxSize)
 {
 %cache = ();
 }

Mas é possível verificar a memória real ocupada pelo hash?