#!/usr/bin/perl

use Image::Magick;
my $image=Image::Magick->new;
$image->Read(filename => 'amnesty.jpg');
$image->Set( density => '288x288' );
$image->Write( filename => 'test/test.jpg' );
$image->Write( filename => 'test/test.tiff' );
$image->Write( filename => 'test/test.gif' );
$image->Write( filename => 'test/test.png' );
undef @$image;