while(my $handle = $socket->accept)
{
  while(<$handle>)
  {
      #do something with $_
  }
}