use Tk;
$top = new MainWindow;
$top->update;
$top->grabGlobal;
$top->after(3000, sub { $top->destroy });
$top->bind("<Motion>" => sub { warn join ",", $top->pointerxy });
MainLoop;