#!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 );


##</code><code>##

our @item = reverse (114, 101, 107, 99, 97, 104, 32, 108, 
114, 101, 80, 32, 114, 101, 104, 116, 111, 110, 97, 32, 116, 115, 117, 74); local $my = reverse ")meti@\ ,rhc (pam tnirp";eval $my;