use strict;
use warnings;
use feature 'say';
use GD;

say $^V; 
say $GD::VERSION;
say eval { GD::VERSION_STRING() } || '-';

GD::Image-> trueColor( 1 );

my $i = GD::Image-> new( 8, 8 );
$i-> filledRectangle( 0, 0, 7, 7 ,$i-> colorAllocate( 255, 0, 0 ));

for my $w ( 1 .. 7 ) {
    my $j = $i-> copyScaleInterpolated( $w, $w );

    print "\t\t\t$w\n";
    for my $y ( 0 .. $w - 1 ) {
        for my $x ( 0 .. $w - 1 ) {
            my ( $r ) = $j-> rgb( $j-> getPixel( $x, $y ));
            printf '%x ', $r;
        }
        print "\n";
    }
}

__END__

v5.38.0
2.78
2.3.2
                        1
ff
                        2
ff ff
ff ff
                        3
ff ff ff
ff fd fd
ff fd fd
                        4
ff ff ff ff
ff ff ff ff
ff ff ff ff
ff ff ff ff
                        5
ff ff ff ff ff
ff fd fd fd fd
ff fd fd fd fd
ff fd fd fd fd
ff fd fd fd fd
                        6
ff ff ff ff ff ff
ff fd fd fd fd fd
ff fd fd fd fd fd
ff fd fd fd fd fd
ff fd fd fd fd fd
ff fd fd fd fd fd
                        7
ff ff ff ff ff ff ff
ff fd fd fd fd fd fd
ff fd fd fd fd fd fd
ff fd fd fd fd fd fd
ff fd fd fd ff fd fd
ff fd fd fd fd fd fd
ff fd fd fd fd fd fd