#!/usr/bin/perl -w

  use strict;
  use IO::Socket;

  my ($sock,   # Socket
      $serv_msg, # mes