01: #! /usr/bin/perl
02: use forks;
03: use strict;
04: use warnings;
05: 
06: $| = 1;
07: 
08: my $thread1 = threads->new( func( 0 ) );
09: my $thread2 = threads->new( func( 30 ) );
10: 
11: $thread1->join;
12: $thread2->join;
13: 
14: 
15: sub func {
16:         foreach ( 1..100000 ) {
17:                 print " " x $_[0], $_, "\n"
18:         }
19:         return 1;
20: }