Select Code to Download

$mw->after( 1000, sub{ $hour = 3 } );
$mw->after( 1000, sub{ $minute = 30 } );

my $minute = 30;
$mw->update;
$mw->after( 1000, sub{ $minute++; } );

#!/usr/bin/perl
package Tk;
...

MainLoop;