Old stuff/Perl/Image/test.pl
(Deskargatu)#!/usr/bin/perl -w
use Image::Magick;
my ($image,$x);
$image = Image::Magick->new;
$x = $image->Read('image.png');
warn "$x" if "$x";
$x = $image->Resize(geometry=>'50x50');
warn "$x" if "$x";
$x = $image->Write('nouvelle.png');
warn "$x" if "$x";