#! /usr/bin/perl
use strict;
use warnings;

use Image::Magick;


my $imageFile = "/dev/shm/test.jpg";

my $image = new Image::Magick;

my $res = $image->Read($imageFile);
warn $res if $res;

$res = $image->Scale('100 x 100');
warn $res if $res;


my ($x, $y) = $image->Get('width', 'height');
printf "$x...$y\n";