#!/usr/bin/perl

use Thread;
use Time::HiRes qw(usleep);

while(usleep(100)) {
my $thr1 = new Thread \&doNothing1;
$thr1->join;
}

sub doNothing {}