sub set_scale{$curr_scale=shift}
sub set_temp($){
  #convert to C if needed, and store in "curtmp"
}