use threads;
$| ++;
$child = threads->create(\&a);
$child->join; # I am wating the $child thread to finish first
print "Main thread stop\n";

sub a {
    for (1..5) {
        print "child is still counting, $_\n";
        sleep(3);
    }
    print "child thread stop\n";
}