#! perl -slw
use strict;
use threads;

async { getc while 1; }->detach;

close STDIN if @ARGV;

for ( 1 .. 10 ) {
    async {
        printf "Thread: %d ran\n", threads->tid;
    }->detach;
}

sleep 1 while threads->list( threads::running );

__END__
C:\test>junk
Thread: 2 ran
Thread: 3 ran

Thread: 4 ran
Thread: 5 ran

Thread: 6 ran
Thread: 7 ran
Thread: 8 ran
Thread: 9 ran
Thread: 10 ran

C:\test>junk 1
Thread: 2 ran
Thread: 3 ran
Thread: 4 ran
Thread: 5 ran
Thread: 6 ran
Thread: 7 ran
Thread: 8 ran
Thread: 9 ran