use strict; use Plack; use AnyEvent; our $timers = {}; my $app = sub { my $time = time(); $$timers{$time} = AE::timer 0, 0, sub { sleep 60; delete $$timers{$time} }; return [ 200, [ 'Content-Type' => 'text/plain' ], [ 'Hello World' ] ]; };