my $bmp = pack 'a2 V V V l< l< l< v v V V l< l< V V',
    'BM', $len + 54, 0, 54, 40, $attrs[1], $attrs[2], 1, 24, $len, 0, 0, 0, 0;

##</code><code>##

karls-mac-mini:monks karl$ file mandelbrot.bmp 
mandelbrot.bmp: PC bitmap, Windows 3.x format, 1280 x 1024 x 24

##</code><code>##

karls-mac-mini:monks karl$ identify mandelbrot.bmp 
identify: unrecognized compression `mandelbrot.bmp'.