while (1) {
   # do something, then…
   sleep( $x );
   # maybe do something else...
}