use strict;
use warnings;
use threads;

my $thread = threads->create(\&child);

for (1 .. 10) {
    sleep 1;
    print "parent\n";
}
$thread->join();

sub child {
    for (1 .. 5) {
        sleep 1;
        print "child\n";
    }
}

##</code><code>##

child
parent
child
parent
child
parent
child
parent
child
parent
parent
parent
parent
parent
parent