C:\>ppm help
NAME
    ppm - Perl Package Manager, version 4.01

SYNOPSIS
    Invoke the graphical user interface:

        ppm
        ppm gui

    Install, upgrade and remove packages:

        ppm install [--area <area>] [--force] <pkg>
     ......................

C:\>ppm gui
В графическом менеджере инсталлируем нужный пакет

или же
 
C:\>ppm install GD

C:\>cpan

cpan shell -- CPAN exploration and modules installation (v1.9102)
ReadLine support enabled

cpan> install GD

С:\>perl -e "use GD"

Can't locate GD.pm in @INC ....
Модуль GD неустановлен ставте

#!/usr/bin/perl -w
use GD;

use strict;
use warnings;

#Константы (RED,GREEN,BLUE) характеризуют активные пиксели 
use constant RED    => 44;
use constant GREEN  => 18;
use constant BLUE   => 4;
 
my $image = shift || exit  print "\x09        bix_exemple.pl ~ / Beeline Image xek / \n".
                                 "\x09\x09\x09\x09      / by demonoid / \n".
                                 "\x09   specical for forum.antichat.ru / 13.10.2007 / \n\n".
								 "\x09\x09 usage    : $0 <image> \n".
								 "\x09\x09 example  : $0 5.jpg   \n";

my ( $x,$y,$index,$xek_image,$r,$g,$b,$x_position,$y_position,$i,$count ) = ( undef,undef,undef,undef,undef,undef,undef,5,5,0,0 ); 

my $myImage = newFromJpeg GD::Image( $image  );

my %Coordinates = ( '0' => [ '7:4', '0:4' ], 
                    '1' => [ '2:2', '3:2' ],  
                    '2' => [ '7:9' ],  
                    '3' => [ '0:1', '0:8' ],  
                    '4' => [ '5:2', '6:9' ],  
                    '5' => [ '0:0', '0:1' ],  
                    '6' => [ '3:4', '0:4' ], 
                    '7' => [ '7:0' ], 
                    '8' => [ '2:4', '3:4' ], 
                    '9' => [ '7:4', '7:7' ]) ;	
for(0..3)
{
    for(  $i = 0;$i<9;$i++ )
    {
        for( my $k=0;$k<2;$k++ )
        {
            if ( exists  $Coordinates{ $i }[ $k ] )
            {
                ( $x,$y ) = split( /\:/,$Coordinates{ $i }[ $k ] );
                $index = $myImage->getPixel( $x+$x_position,$y+$y_position );
                ( $r,$g,$b ) = $myImage->rgb( $index ); 
                ( ( RED>=$r )&&( GREEN>=$g )&&( $b=BLUE ) )?$count++:1;
            }
        }
        if ( ( $count ==2 )||( $count ==1 )&&( $i==2 )||( $count ==1 )&&( $i==7 ) )
        {
            $count = 0;
            last;
        }
        $count = 0;
    }
    $xek_image.=$i;
    $x_position+=9;
}
print "IMAGE: $xek_image \n";