use Image::Thumbnail 0.65;
 
# Create a thumbnail from 'test.jpg' as 'test_t.jpg'
# using ImageMagick, Imager, GD or Image::Epeg.
my $t = new Image::Thumbnail(
        size       => 55,
        create     => 1,
        input      => 'test.jpg',
        outputpath => 'test_t.jpg',
);

# Create four more of ever-larger sizes
for (1..4){
        $t->{size} = 55+(10*$_);
        $t->create;
}