my $magick = '/is/htdocs/*deine_kd_kennung*/lib/imagemagick/convert';
die "Imagemagick existiert nicht" unless(-e $magick );


#--------------------------------------------------------------------
sub resize # ( Bild, neues Bild, Ratio)
#--------------------------------------------------------------------
{
    my ($src_file,  $dst_file, $aspect) =@_;
    return "$src_file existiert nicht" unless -e $src_file;
    open F, ">$dst_file" or die "Kann Datei nicht erstellen $dst_file: $!";
    close F;
    $aspect = int($aspect * 100) . '%';

    my $system = sprintf " $magick -quality 50%% -geometry %s! \"%s\" \"%s\"",
                  $aspect, $src_file, $dst_file
    ;
    return system $system;
}