#!/usr/bin/perl
use strict;
use Image::Size;
use Image::Magick;
my $file = '/home/format_c/Documents/Eigene Bilder/Beispiel.jpg';
my $new_file = '/home/format_c/Documents/Eigene Bilder/Beispiel_new.jpg';
my ($old_x,$old_y) = imgsize($file);

my $new_x = int $old_x / 2;
my $new_y = int $old_y / 2;
print "Old Size:\n";
print "X: $old_x --> $new_x\n";
print "Y: $old_y --> $new_y\n";

my $image = Image::Magick->new();
$image->Read($file);
$image->Set(size=>$new_x . "x" . $new_y);
$image->Write($new_file);
undef $image;
my ($x,$y) = imgsize($new_file);
print "New Size:\n";
print "X: $x\n";
print "Y: $y\n";

:! perl resize.pl
Old Size:
X: 283 --> 141
Y: 212 --> 106
New Size:
X: 283
Y: 212

$image->Resize (width => $w*$opts{reproFactor}, height => $h*$opts{reproFactor});

my ($h, $w) = $image->Get (qw/height width/);