Select Code to Download

use strict;
use IO::Socket;
...
die("[Connected to $host:$port]\n");

syswrite($remote, "Yooo\n")

use strict;
use IO::Socket;
...
  system('./sleep.pl');
  exit;
}