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