use strict;
use warnings;
use GD;

for(1 .. 1) {
   x(100, 100);
   print $_,  " ";
   }

sub x{
    my $im = GD::Image->new( @_);
    my $raw = $im->gd;
    my $im2 = GD::Image->newFromGdData( $raw ) or die "$!, $^E";
    my $raw2 = $im2->gd;
#    my $len = length($raw);
    if($raw ne $raw2) {print length($raw), " ", length($raw2), " ERROR "}
}