Help for this page
while($EXIT == 0) { ... print LOG $temp; sleep(1); }
sub pollForData { ... # return data return $buffer; }