#!/usr/bin/perl -w
use Tk;
use Tk::StrfClock;
my $top=MainWindow->new();
	$top->StrfClock()->pack();
	MainLoop();