sub calculateInstruction{
  my $instruction;
  if($STATE{'lights'} && $STATE{'bell'}){
    $instruction = "<f 1108 144><f 1108 136>"
  }elsif($STATE{'lights'}){
    $instruction = "<f 1108 128><f 1108 144>"
  }elsif($STATE{'bell'}){
    $instruction = "<f 1108 128><f 1108 136>"
  }else{
    $instruction = "<f 1108 128>"
  }
  print "Would send $instruction to serial\n";
#    $port->write($instruction);
#    $port->lookclear();    
}