use strict;
use warnings;
use GD;

my($bild, $breite, $hoehe);

open (IMG,'hv.gif') ||  die "Kein Bild\n";
$bild = GD::Image->newFromGif(\*IMG);
close(IMG);

($breite, $hoehe) = $bild->getBounds();
print "Breite: $breite, Hoehe: $hoehe\n";