use strict;

use Image::Imlib2;


my $img = Image::Imlib2->new(200,200);


$img->set_color(255, 0, 0, 255);
$img->fill_rectangle(0,0, 200, 200);


$img->set_color(0, 255, 0, 255);
$img->draw_point(40,40);


my ($red, $green, $blue, $alpha) = $img->query_pixel(40,40);
undef $img;



my $col = pack("CCCC", 255, 255, 0, 0); 
my $img = Image::Imlib2->new_using_data(200, 200, $col x (200 * 200));

exit 0;