use Carp;      
use strict;   
use warnings;
use threads; 

my $thread1= threads->new(\&test, "Erster Thread")->detach(); 
my $thread2 = threads->new(\&test2())->detach();


my $a = 0; 
for(;;) {
	sleep 1; 
	print "Mainthread: " . $a++ . "\n";
}


sub test {
	my $thread = @_; 
	my $i = 0; 
	for(;;) {
		sleep 1; 
		print $thread . " " . $i++ . "\n"; 
	}	
}

sub test2 {
	my $i = 0; 
	for (;;) {
		sleep 1; 
		print "zweiter Thread: " .  $i++ . "\n"; 
	}
}