Simple working code 

#! /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