my @responses;

while (1) {
  my $response = <$remote>;

  if ($response eq 'SQLEND') {
    last;
  } else {
    push @responses, $response 
  }
}