-         sleep $pause;
+         select undef, undef, undef, $pause/10;  # small sleep