Bildgröße mit Perl auslesen (Code schon da, aber fehlerhaft)

[Torwächter]

Hallo zusammen,

nachdem mir verschiedene Leute schon versucht haben zu helfen, die Lösung aber nur über Module zu handhaben war, habe ich nun einen Scriptstring aus einem Script ausgeschnitten.

Das Problem ist nur, dass nur gifs richtig berechnet werden, nicht aber jpgs.

Das Script:
#======================================
open (JPG , "$pic_dir/$pic") ;
undef $/;
$jpg=<JPG> ;
close(JPG) ;
#---
$pic_temp="$pic_dir/$pic";
#---
($width,$height)=&jpegsize($jpg) ;
$fsize=length($jpg);
#======================================
sub jpegsize {
        my ($JPEG)=@ _ ;
        my ($count)=2 ;
        my ($length)=length($JPEG) ;
        my ($ch)="" ;
        my ($c1,$c2,$a,$b,$c,$d,$width,$height) ;
        #---
        while (($ch ne "\xda") && ($count<$length)) {
            while (($ch ne "\xff") && ($count < $length)) {
                        $ch=substr($JPEG,$count,1);
                        $count++;
            }
            while (($ch eq "\xff") && ($count<$length)) {

$ch=substr($JPEG,$count,1);
                        $count++;
            }
            if ((ord($ch) >= 0xC0) && (ord($ch) <= 0xC3)) {
                        $count+=3;
                        ($a,$b,$c,$d)=unpack("C"x4,substr($JPEG,$count,4));
                        $width=$c<<8|$d;
                        $height=$a<<8|$b;
                        return($width,$height);
                } else {

($c1,$c2)= unpack("C"x2,substr($JPEG,$count,2));
                        $count += $c1<<8|$c2;
            }
        }
}

Über eure Hilfe würde ich mich sehr freuen.

Greetings
Torwächter