sub sleep_till {
   my ($sleep_till) = @_;
   my $duration = $sleep_till - time();
   if ($duration > 0){
      sleep($duration);
   }
}