or download this
use constant STEPS_IN_MILE => 2000; # rough estimate based on www.thew
+alkingsite.com/10000steps.html
...
$step_counter++ if ( $step_counter/STEPS_IN_MILE > 500 ); # don't
+you think you've dawdled long enough? Pick up the pace! (more of a j
+og at this point)
$current_state = 'fallen down' if ( $step_counter/STEPS_IN_MILE >
+1000 ); # do ring the gong before falling, the kind Monks will surely
+ fetch you water.
}