while ($event->poll != 0) {
      my $type = $event->type();
      exit if $type == SDL::Event::SDL_QUIT();
   
      if($type == SDL::Event::SDL_KEYDOWN()) {
        my $keypressed = $event->key_name;
.
.
.