read (FILE, $InfoHeaderSize, 4); read (FILE, $Width, 4); read (FILE, $Height, 4); read (FILE, $Planes, 2); read (FILE, $BitSize, 2); read (FILE, $Compress, 4); read (FILE, $HDpi, 4); read (FILE, $VDpi, 4); read (FILE, $PalUsed, 4); read (FILE, $PalImportant, 4); perlは面倒くさすぎる