Help for this page

Select Code to Download


  1. or download this
    my $start_time = time(); # remember when we started
my $progress;
...
};

undef $progress; # hide progress dialog if we have one
  2. or download this
    use Time::HiRes qw(time);

...
    undef $progress;
};
undef $popup; # cancel our Tk->after() timeout