[mh] perl while loop not behaving as expected

[Brandon P. <br...@da...>]

I created this while loop: 
while (state_now $front_door eq ON) {
        my $say_door_open = "The front door is open";
        print_log "$say_door_open";
        speak $say_door_open;
        sleep 30;
}

What I expected it to do:
1. print to the log
2. speak $say_door_open
3. sleep (do nothing) 30 seconds
4. repeat while the $front_door sensor eq ON. 

What I am seeing is 1, 2, and 4, but skipping the sleep. The entire file is here. Any ideas would be appreciated. As an additional note, I am using one of these, and it is defined as below. 

INSTEON_MOTIONSENSOR,  23.40.76,  front_door,   Sensors  #1512 R1.6