#!/usr/bin/perl

use Image::Magick;

$ipimage = Image::Magick->new(size=>'640x480');
$ipimage->Read("logo:");

$blob1=$ipimage->ImageToBlob();

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

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