Hi all,

I have a perl/Tk application which lists files and updates
disk usage every 5 minutes. At the moment, I have the
following, but its seems rather clunky and the GUI itself
does not have a very fluid feel to it. Is there a better
way? 

Regards, Stacy.


&disk_space;    #check disk space
&refresh_tally; #refresh GUI

my $counter = 300;

while (1) { #always true
 
  $counter -= 1;
  $frame->update;
  sleep 1;
  
  unless ($counter > 0) {  
    &disk_space;
    &refresh_tally;
    $frame->update;
    $counter = 300; #reset counter
  }
$frame->update;

}

MainLoop;