open(my $FH, '>:raw', 'path/to/my/new/cool/bitmap.bmp');
print $FH $my_carefully_packed_binary_data