Also note that I just used the time function; take a look at Time::HiRes core module which provides higher resolution time functions.

Tk provides already as  $Tk::event->t