Como criar tópicos em Perl?

Eu tenho fácil script Perl onde eu tenho um grande loop e dentro deste eu invoco mais ou menos milhões de vezes a funçãomy_fun(). Eu gostaria de criar um pool de threads que lida com ele - max 5 threads neste mesmo tempo invocar este método em loop.

É muito importante para mim usar a biblioteca mais rápida - será muito bom ver exemplos.

Meu código é assim:

for (my $i = 0; $i < 1000000 ; $i++) {
        my_fun();
}

Agradeço antecipadamente