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 will connect)
}