threads - Error

[Teifke Sascha ZFF]

Hello List,

using this code, I got the following Error:

"Can't undef active subroutine during global destruction."

Has anyone a good thread-beginners example I could use to get started?

What I want to do is to write a win32 program that needs to call a sub for
every element of a list provided. They do not need to access each others
values.

Thank you in advance
Sascha

=======8<========
use threads;
use strict;
   
    my $thread1 = threads->create ( \&Test, "1" );
    my $thread2 = threads->create ( \&Test, "2" );

exit;

sub Test {
    my $test = shift;
    print "\nHello World! - " . $test;
    return $test;
}

=======8<========