# child.pl
use Time::HiRes qw( sleep );
print "Doing something\n";
sleep(0.100);
print "Doing something\n";
sleep(0.100);
print "Doing something\n";
sleep(0.100);
print "done.\n";