#!usr/bin/perl

use warnings;
use strict;

use SDL::App;
use SDL::Color;

        my $app = SDL::App->new(
                -width  => 640,
                -height => 480,
                -depth  => 16,
        );

my $color = SDL::Color->new(
                -r => 0x00,
                -g => 0x00,
                -b => 0xff,
        );

$app->fill( $rect, $color );

$app->update( $rect );