Select Code to Download

my $sockserv = new IO::Socket::INET( LocalAddr => '192.168.1.1',
                              LocalPort => $port,
...
    }
      }
}

foreach my $sock (@sockclients)
{
    print $sock $data;
}