use strict;
use warnings;
use Image::Magick;

my $image = Image::Magick->new;
my $fh    = upload('image');

$image->Read(file=>$fh);
$image->Thumbnail(geometry=>'150x150');
$image->Write(filename=>'xyz2.jpg');