# Thumbnail Dimensions
my ($thumb_max_height, $thumb_max_width) = (100,100);

my $p = new Image::Magick;
$p->Read($image_file);
$p->Scale(geometry => "${thumb_max_height}x${thumb_max_width}");
$p->Write($thumb_file);