#!/usr/bin/perl

use Image::Magick;

$ipimage = Image::Magick->new(size=>'640x480');
$ipimage->Set(magick=>'RGB');
$ipimage->Read("logo:");
$blob1=$ipimage->ImageToBlob();

$opimage = Image::Magick->new(size=>'640x480');
$opimage->Set(magick=>'RGB');
$opimage->BlobToImage($blob1);

$opimage->Write("t2.jpg");