sub getfilesize{
    my @spec=();
    open FH, $file;
    for (0..9){$spec[$_] = getc(FH);}
    close FH;
    my $tmp1 = unpack("H2",$spec[7]).unpack("H2",$spec[6]);
    my $tmp2 = unpack("H2",$spec[9]).unpack("H2",$spec[8]);
    $width = unpack('s',pack('s',hex($tmp2)));
    ($width) = $width =~ /(\d+)/;
    $height = unpack('s',pack('s',hex($tmp1)));
    ($height) = $height =~ /(\d+)/;
    }

##</code><code>##

use Image::Size;
my ($width, $height) = imgsize($file);
($width) = $width =~ /(\d+)/;
($height) = $height =~ /(\d+)/;

##</code><code>##

sub getfilesize{
    my $file = shift;
    my @spec=();
    open FH, $file;
    for (0..9){$spec[$_] = getc(FH);}

    close FH;
    my $tmp1 = unpack("H2",$spec[7]).unpack("H2",$spec[6]);
    my $tmp2 = unpack("H2",$spec[9]).unpack("H2",$spec[8]);
    my $width = unpack('s',pack('s',hex($tmp2)));
    ($width) = $width =~ /(\d+)/;
    my $height = unpack('s',pack('s',hex($tmp1)));
    ($height) = $height =~ /(\d+)/;
    return ($width, $height);
    }

# example of sub call
my ($width, $height) = getfilesize('/path/to/file.gif');