receive()); print "Sleeping for 3 seconds...\n"; \sleep(3); // Blocking call in process. yield $channel->send("Data sent from child."); print "Sleeping for 2 seconds...\n"; \sleep(2); // Blocking call in process. return 42; };