my $image = GD::Image->new(1, 1);
$image->colorAllocateAlpha(0, 0, 0, 127);
# output follows

##</code><code>##

unpack 'V', pack 'C4', 0, 0, 0, 127