Handshake mechanism in perl

[t-rex]

i am working for a project where i have implemented concurrent server , now i need to take back logs 9 in a hand shake mechanism without except module) the flow of my code is :

main.pl
{
#try connecting to the server socket
System(run perl_client.pl) or die “couldn’t run perl client.pl”
If (fails)
{
Transfer files on server machine via scp
Run server.pl
Socket established
Try connecting again to the server socket from client, (this time it w
+ill connect)
}

My doubt now is how do I know whether everything is running , this code is a part of one big automation so I can’t use std libraries, maybe a log file , I know how to open and write to a file but a robust handshake mechanism is what I desire , anyone has any ideas for the same.

[anonymized user 468275]

You'll need to reveal more code, otherwise we can't see what the easiest way is to put in some process monitoring and control. Meanwhile I suggest you (re-)read the process control section of the big camel book*.

(* Update: more precisely: Programming Perl, chapter 15, interprocess communication)

[GotToBTru]

Is this a continuation of the problem you've been working in previous posts? That information would be very useful.