#! /usr/bin/env perl

use AnyEvent;

my $timer_once = AE::timer 0.5, 0.5, sub { print 'too late' };