while($EXIT == 0)
{
  $temp = pollForData();
  print $temp;
  print LOG $temp;
  sleep(1);
}

##</code><code>##

while($EXIT == 0)
{
  $temp = pollForData();
  print "$temp\n";
  print LOG $temp;
  sleep(1);
}

##</code><code>##

sub pollForData
{
  my($length,$buffer);

  # Poll controller to send any pending data (if there is none, 
  # it will send back a 'RES' control character
  print SERIAL $IM{'POL'};
  $upstream++;
  # read in $BUFFER amount of bytes
  $length = read(SERIAL,$buffer,$BUFFER);
  # update num of bytes received so far
  $downstream += $length;
  # return data
  return $buffer;
}