perl -MWin32::GUI::BitmapInline -e inline('image.bmp') >>script.pl