#!/usr/bin/perl

use strict;
use warnings;
use SDL;
use SDLx::App;

my $app=SDLx::App->new(width=>400,height=>400);
$app->draw_line([200, 20],[20,200],[255, 255, 0, 255]);

$app->update;
sleep(5);