# Resize erstellen aus dem Uploadbild und speichere im selektierten Albumordner
                $image = Image::Magick->new;
                $image->Read("$upload_dir/$file_name");
                $image->Resize("800 x 600");
                $image->Write("$image_dir/$file_name");

# Resize erstellen aus dem Uploadbild und speichere im selektierten Albumordner
                 my $image=Image::Magick->new;

                 my $error=$image->Read("$upload_dir/$file_name");
                 die "IM->Read: $error\n" if("$error");

                 $error=$image->Resize("800 x 600");
                 die "IM->Resize: $error\n" if("$error");

                 $error=$image->Write("$image_dir/$file_name");
                 die "IM->Write: $error\n" if("$error");

$image = Image::Magick->new;

my $error=$image->Read("$upload_dir/$file_name");

my $error=$image->Read($file_name);