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