Select Code to Download

use Tk;
my_long_sub {
...
$main = MainWindow->new;
$main->Button( -text "Start Long Sub", -command \&my_long_sub)->pack;

use Tk;
$seconds = 60;
...
$main->Button( -text "Start Long Sub", -command \&not_a_long_sub)->pac
+k;
$main->after($seconds * 1000, \&not_a_long_sub);