Update:
The server code states

foreach my $hostvar (@remote_host)
    {
    $sockserver = new IO::Socket::INET (LocalHost => $hostvar,
[download]

because, the requirement is that the client can be run from anyplace.. so the server listens to many clients present in the array, until a connection is established and then continues...
Any alternatives regarding this issue also will be great!

Thanks again!!!