Select Code to Download

use Socket;

...
  send(NEW_SOCKET,"Hello",0);
  close NEW_SOCKET;
}

use Socket;

...
 print "$val from $iaddr\n";
}
close SOCKET or die "close: $!";