I use Image::Magick for most of my image processing and manipulation routines.

# Resize image
my $image = new Image::Magick;
$image->Read($file);
$image->Scale(geometry => '300x300');
$image->Set(density=>'200');
$image->Write($file);
[download]