use SDL;
use SDL::Time;

SDL::init(SDL_INIT_TIMER);
my $time = 0;
SDL::Timer::set_timer(100, sub { $time++; return $_[0]} );
print 'this will not print!'