my $sock = IO::Socket::INET->new("loclahost:1111");
my $text='';
while()
{
  my $server='';
  eval{
    local $SIG{ALRM}=sub{die;};
    alarm(1);
    $server = <$sock>;
    alarm(0);
  };

  chomp($server);
  if($server =~ 'm(.*?))
  {
    my $msg = $2;
    print "$msg\n";
  }

  eval{
    local $SIG{ALRM}=sub{die;};
    local $/=undef;
    alarm(1);
    my $txt;
    while(read(STDIN,$txt,1))
    {
      last if($txt=~/[\r\n]/);
      alarm(1);
      $text .= $txt;
    }
    alarm(0);
  };

  if($text =~ 'say (.*)')
  {
    my $msg_send = $1;
    print $sock "m($msg_send)\n";
    $text='';
  }
}