#! perl -slw
use strict;
use threads;

my $run = 0;
while( 1 ) {
    async {
        my $gna;
        for ( 'aaaaa' .. 'bbbbb' ) {
           $gna = uc;
        }
    }->detach;
    sleep 1;
    printf "\r%d", ++$run;
}