#!/usr/bin/perl -w

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

$|=1;

my $pic_name = "05.tif";
my $image = Image::Magick->new;

print "[start] reading\n";
my $x = $image->Read($pic_name);            # hier kommt "Segment Fault"
print "[stop] reading\n";                   # das hier erscheint erst gar nicht mehr

my ($width,$height) = $image->Get('width','height');
$x = $image->Resize(geometry=>'400x400');
$x = $image->Write("05_big.png");
$x = $image->Resize(geometry=>'100x100');
$x = $image->Write("05_small.png");