do {
    my @timenow = localtime(time);
    @current = ($timenow[2], $timenow[1]);
    sleep 5;
  } until ("@wake" eq "@current");