Sometimes, you need to create other threads and let the main thread manage other threads.
This is an example how to create a thread in Perl:
#!/usr/bin/perl
use threads;
my $thr = threads->create(‘test’);
sub test
{
REPEAT:
print “This is a testn”;
goto REPEAT;
}
#!/usr/bin/perl use threads; my $thr = threads->create(‘test’); sub test { REPEAT: print “This is a testn”; goto REPEAT; }