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

my $image = new Image::Magick;
# ... das ist dann Deine Arbeit
my $error = $image->Write('beispiel.png') and die "image write: $error";