RosettaCodeData/Task/Window-creation/Perl/window-creation-2.pl

  use SDL::App;
  use SDL::Event;

  $app = SDL::App->new;
  $app->loop({
    SDL_QUIT() => sub { exit 0; },
  });