Yes, does the trick. So basicly, you have to restart the thread every time?

Thanks!

Your program finishes too fast. Try this:

use threads;
use threads::shared;
my $test :shared;
$test = 0;
testing_thread();

sub testing_thread {
        my $thr1 = threads->create(\&progress_count, $test);
        while ($test <= 1000000) {
                $test += 1;
        }
        $thr1->join();
}

sub progress_count {
        while( $test < 1000000 ) {
                print $test, " \n";
        }
}
[download]

I'm sorry to say, but your code is not quite right.

When you do it like that, the printing and counting of the variable won't run parallel. Resulting in seeing only fragments of the counting

But thanks for the effort!

I think a better way to put it is that you are going to create or spawn a new thread (not restart the thread).

You would have to think some more about how to print every time the shared variable changes value.