sub four() {
   my $buttonState = sensorIsOn() ? "disabled" : "normal";

   $Button1->configure(-state => $buttonState);  
   $buttonState = ucfirst $buttonState;
   print "State $buttonState\n";
}