Datei-Upload Filehandle Problem

[Kathrin]

Bei mir sieht's im Moment so aus:

#!/usr/bin/perl -w
print "Content-type: text/html\n\n";

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
#use DBI;
use Image::Magick;
my $Image = Image::Magick->new;
#$CGI::POST_MAX=1024 * 100 || die "Datei zu groß";

my $cgi = new CGI;
my ($file);

if($cgi->param()){

if($cgi->upload('B')){

#my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
#$atime,$mtime,$ctime,$blksize,$blocks)
#= stat($cgi->upload('B'));

$file = $cgi->upload('B');
print "<br>file: ",$file;

}

open(DATEI, "<$file");# || die "Datei nicht gefunden";
 my @Zeilen = <DATEI>;
 close(DATEI);

print "<br>Zeilen: ",@Zeilen;

my $results = $Image->Read($file);# or die "Fehler beim Lesen!";
    print "<br>results: ",$results;

open(DATEI, "<$file");
    my $results = $Image->Read(*DATEI);
    print "<br>results: ",$results;
    close(DATEI);

$Image->Thumbnail('500x500>');
    $Image->Write("test.jpg");

undef $Image;
    undef $file;

}