Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 

...
$minute = 5; #nothing happening ... sad

MainLoop;

Select or download this

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