use strict;
use warnings;
use SDL;
use SDLx::App;
my $app = SDLx::App->new(w => 400, h => 400, d => 32);
$app->draw_line( [200, 20], [20, 200], [255, 255, 0, 255] );

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