( $time - $previoustime >= 10
  or sleep (10 + $previoustime - $time)
)