Here is one way to make a non-blocking delay without sleep

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

$|=1;

my $count = 0;
my $loop  = 0;
my $mw    = new MainWindow();

$mw->Label( -textvariable => \$count )->pack;

$mw->Button( -text => 'Start', -command => \&long_job )
  ->pack( -side => 'left' );

$mw->Button( -text => 'Stop', -command => sub { $loop = 0; print "$cou
+nt\n"; } )
  ->pack( -side => 'left' );

MainLoop();

sub long_job {
my $var;
my $timer = $mw->repeat(1000, sub{$var++} ); 

   $loop =1;       
   while($loop){
          $loop++;
          $mw->waitVariable(\$var);
          $count++;
         }
  DoOneEvent();  
}
[download]

Isn't that a pirate site?

Maybe, I will remove it. It was the first hit when googling the topic. :-)

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh