#!/usr/bin/perl

use Image::Magick;

my $thumbnail = Image::Magick->new;
$thumbnail->Read("full.bmp");
$thumbnail->Write("full.png");

$thumbnail->Resize(width=>'200', height=>'150');
$thumbnail->Write("tn_200x150.png");

$thumbnail->Resize(width=>'100', height=>'75');
$thumbnail->Write("tn_100x75.png");

undef $thumbnail;

exec "file /home/mhenkel/*.png";

##</code><code>##

/home/mhenkel/full.png:       PNG image data, 240 x 294, 8-bit/color RGB, non-interlaced
/home/mhenkel/tn_100x75.png:  PNG image data, 100 x 75, 8-bit/color RGB, non-interlaced
/home/mhenkel/tn_200x150.png: PNG image data, 200 x 150, 8-bit/color RGB, non-interlaced

##</code><code>##

/home/mhenkel/full.png:       PNG image data, 240 x 294, 8-bit/color RGB, non-interlaced
/home/mhenkel/tn_100x75.png:  PNG image data, 100 x 75, 16-bit/color RGB, non-interlaced
/home/mhenkel/tn_200x150.png: PNG image data, 200 x 150, 16-bit/color RGB, non-interlaced