view release on metacpan or  search on metacpan

eg/histogram.pl  view on Meta::CPAN

    $brush->{R}    = ($component) / 255;
    $component     = ( ( $color >> 8 ) & 0xFF );
    $brush->{G}    = ($component) / 255;
    $component     = ( $color & 0xFF );
    $brush->{B}    = ($component) / 255;
    $brush->{A}    = $alpha;
    $brush;
}

# and some colors
# names and values from https://msdn.microsoft.com/en-us/library/windows/desktop/dd370907%28v=vs.85%29.aspx
sub White()      {0xFFFFFF}
sub Black()      {0x000000}
sub DodgerBlue() {0x1E90FF}
#
sub pointLocations {
    my ( $width, $height ) = @_;
    my $xincr = $width / ( $dps - 1 );    # 10 - 1 to make the last point be at the end
    my $yincr = $height / 100;
    my ( $xs, $ys );
    my $n = 0;