#!/usr/bin/perl
use threads;
use strict;

my $count;
while (1) {
	threads->create(\&func);
	print ++$count, "\n"; 
}

sub func {
	while (1) {
		sleep(10);
	}
}