Select Code to Download

use strict;
use warnings;
...
    my $time = UnixDate( 'now', "The time is: %r on %B %d, %Y" );
    $lbl->configure( -text => $time );
}

use strict;
use warnings;
...
)->pack(@pack_opts);

MainLoop;