use strict;
use warnings;
use feature 'say';
use GD;
use Digest::MD5 'md5_hex';

say $^V; 
say $GD::VERSION;

my $f = 'frog.jpg';

GD::Image-> trueColor( 1 );
my $i = GD::Image-> new( $f );
say "Image is ", ( $i-> isTrueColor ? '' : 'not ' ), 'truecolor';

printf "RGB triplet for 0,0 pixel is: %3\$d, %2\$d, %1\$d\n", 
    unpack 'C3', pack 'L', $i-> getPixel( 0, 0 );

__END__

v5.32.1
2.76
Image is truecolor
RGB triplet for 0,0 pixel is: 0, 248, 231

v5.10.1
2.44
Image is truecolor
RGB triplet for 0,0 pixel is: 0, 247, 231