$ perl call.pl

call.pl: Calling subtask script...
busy.pl: Starting subtask...
call.pl: Subtask still running...
call.pl: Subtask still running...
call.pl: Subtask still running...
call.pl: Subtask still running...
busy.pl: Ending subtask...
call.pl: Done!