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

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

my $f = 'frog.png';

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

say md5_hex( $i-> gd() );

__END__

v5.32.1
2.76
Image is truecolor
e60c6afd7eefe80050d6af4488457281

v5.16.3
2.49
Image is truecolor
e60c6afd7eefe80050d6af4488457281

v5.10.1
2.44
Image is truecolor
e60c6afd7eefe80050d6af4488457281