use strict;
use warnings;
use SDL;
use SDLx::App;
my $app = SDLx::App->new(w => 400, h => 400);
sleep(4);