zigdon

  sub wait {
  
     for ($y = 0; $y < 1000000; $y++) {
        ;
     }
  }
  
  sub moment {
  
     for ($y = 0; $y < 100000; $y++) {
        ;
     }
  }