Select Code to Download

 #!/usr/bin/perl -w

# !!! Client !!!
...
           alarm 0;
           1;    #  Value for eval code block on normal exit.
      } or die "recv from $server_host timed out after $TIMEOUT second
+s.\n";

 #!/usr/bin/perl -w
# !!! Server !!!

...
    $sock->send($oldmsg);
    $oldmsg = "[$hishost] $newmsg";
}