use Tk;
sub w{ warn @_ }
tkinit->Button(
  qw/ -repeatdelay 25
-repeatinterval 25
-command /, \&w,
)->pack;
MainLoop;