#!/usr/bin/perl
use strict;
use warnings;
use SDL;
use SDLx::App;

my $app=SDLx::App->new(h=>400,w=>400,t=>"SDL Tutorial",exit_on_quit=>1);

$app->draw_circle([10,10],30,[255,255,0,255]);
$app->update;
$app->run;