#! /usr/bin/perl use strict; use warnings; use Event; Event->timer( interval => 2, repeat => 1, cb => sub { print(time()."\n") }, ); Event::loop();
1191465664 1191465666 1191465668 1191465670 ^C