while (1)
{
  my $msg = $sock->recv();
  my $data = $msg->data();

  unless ($csv->parse($data))
  ... etc ...
}