...
my $a = 800;  # width
my $b = 600;  # height
my $desktop = new Win32::GUI::DC("DISPLAY");

foreach $x (1..$a)
{
  foreach $y (1..$b)
  {
    $pix = $desktop -> GetPixel ($x, $y);
    .... make something with that pix
  }
}