"use Tk::after" braucht man nicht.

Einfach nur $mw->after($milliseconds, sub { ... }) verwenden