my $t; $t = AE::timer 1, 0, sub{ say "Hi!"; undef $t" }