Select Code to Download

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

use strict;
use warnings;
use SDL;
...

$app->update();
sleep(4);