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