#!/usr/bin/perl
use strict;
use warnings 'all';
use Win32::GUI;

# create screen object
my $screen = Win32::GUI::DC    -> new        ("DISPLAY");

# get color of pixel at x, y
my($x, $y) = (100, 50);
my $color  = $screen        -> GetPixel    ($x, $y);

# print out the color
printf("Color at %i, %i: 0x%X\n", $x, $y, $color);

#!/usr/bin/perl
use Gtk2 '-init';

my $posx=100;
my $posy=100;

my $pixbuf= Gtk2::Gdk::Pixbuf->new('rgb',0,8,1,1);

$pixbuf->get_from_drawable(Gtk2::Gdk::Screen->get_default()->get_root_window(),
               
            undef, $posx, $posy, 0, 0, 1, 1);

my ($r,$g,$b)=unpack('C*', $pixbuf->get_pixels());

print "($r,$g,$b)\n";