#!/usr/bin/perl

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

my $image = Image::Magick->new;

open (IMAGE, 'xyz.jpg');
$image->Read(file=>\*IMAGE);
close(IMAGE);

$image->Thumbnail(geometry=>'150x150');

$image->Write(filename=>'xyz2.jpg');