open(FILE, "$image");
    binmode(FILE);
my($kind, $tsize) = (0,0);
read(FILE, $kind, 6);

if($kind =~/GIF/){
      read(FILE, $tsize,4);
      ($a, $b, $c, $d) = unpack("C" x4,$tsize);
      ($x, $y) = ($b<<8|$a, $d<<8|$c);
                  }