BEGIN {
    my $time = time;
    *Tk::Clock::time = sub { 2 * $time - time };
}