#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $imgfile = shift;  # your BMP file

my $image = Image::Magick->new();
$image->Read($imgfile);
my $blob = $image->ImageToBlob(); # make in memory image

#and to convert
my $output = Image::Magick->new(magick=>'jpg');  # set your output format
$output->BlobToImage( $blob );
$output->Resize(geometry=>'160x120');
$output->Write( "$0.jpg" );

#or if you want to write to stdout
#binmode STDOUT;
#$output->Write('jpg:-');