#!/usr/bin/perl

use strict;
use warnings;

use Win32::GUI;

my $screen = new Win32::GUI::DC("DISPLAY");
my $pixel  = $screen -> GetPixel( 5, 5 );

print "PIXEL: $pixel\n";

my $r = ($pixel << 24) >> 24;
my $g = ($pixel << 16) >> 24;
my $b = ($pixel <<  8) >> 24;
my $a = ($pixel      ) >> 24;

print "R: $r\n";
print "G: $g\n";
print "B: $b\n";