getlinefromsocket($socket)
{
  my $buffer;
  my $char;
  while ($socken->recv($char,1)) 
    $buffer+=$char;
}