#!/usr/bin/perl
    use Tk;
	$top = new MainWindow;
	$id = Tk::After->new($top->Label(-text =>&gettime)->pack,1000,'repeat',\&gettime);
	MainLoop;

	
sub gettime{
    ($sec,$min,$hour,$day,$month,$year,$wday,$yday,$isDST) = localtime();
    @mname=("January","February","March","April","May","June",
            "July","August","September","October","November","December");
    @weekday=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
    for($sec,$min){$_="0$_"if($_<10);}
    $dst = $isDST?"Daylight Savings Time":"Standard Time";
	$year = $year +1900;
    $timestring= "$weekday[$wday] $mname[$month] $day," . $year . " $hour:$min:$sec$x\n";
}