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;