refresh full screen every 5 seconds

diff --git a/gearman-top.pl b/gearman-top.pl
index 59d0c67..e69d36f 100755 (executable)
--- a/gearman-top.pl
+++ b/gearman-top.pl
@@ -18,7 +18,7 @@ my $max;
 
 while(1) {
        my $uptime = time() - $t;
-       print "\e[2J" if $uptime % 30 == 0;
+       print "\e[2J" if $uptime % 5 == 0;
        print "\e[0;0H"; # Cursor Home
        print "Gearman " . localtime(time()) . "\t\e[34mmax update: $uptime\e[0m\n"; 
        printf "\e[4mqueued  running  wrk function\e[0m\n";