#!/usr/bin/perl
use SDL::App;
use SDL::Event;
use SDL;

### Create A new Application window 
my $app = new SDL::App
-width => 400,
-height => 400;

### A simple event handler hash 
my $events = {

SDL_KEYDOWN() => sub {
        my ($e) = @_;
        exit(0) if ( $e->key_sym() == SDLK_ESCAPE );
        print $e->key_sym(),"\n";
    },

   SDL_QUIT() => sub { exit(); },
};

my $eventkr = new SDL::Event;
$eventkr->set_key_repeat( 10, 10);


### Loop & process the events 
$app->loop($events);
#$app->loop(); #no events, must kill to exit