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();