use threads;
my $thr = threads->create ( sub { for (5..10) { print $_,"\n";
                                   sleep(10);}});
$thr->join();
my $thr2 = threads->create ( sub { for (10..19) { print $_,"\n";}});
$thr2->join();

##</code><code>##

5
6
7
8
9
10
10
11
12
13
14
15
16
17
18
19