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)));
    $height = unpack('s',pack('s',hex($tmp1)));
    }