Select Code to Download

send(SOCKET,  @Cheese_Array ,0, $paddr);    || die "send $host: $!";

foreach $item(@madArray) {
send(SOCKET,  pack("b8", $item) ,0, $paddr);  #  || die "send $host: $
+!";
}