sub update_time {
    my $mw = shift;
    my $time=UnixDate('now',"The time is: %r on %B %d, %Y");
    my $lbl = $mw->Label(-text=>"$time");
    $mw->update;
    $mw->after(1);
    return $lbl;
}