sleep 1 while $count; # Or use Thread::Semaphore