Hi! I've got

sub fileUpload {
    my $q = new CGI;
    
    if( my $id = $q->param( 'id' ) ) {
        #.......
    } elsif ( my $fileName = $q->upload( 'uploadfile' ) ) {
        my $fileInfo = $q->uploadInfo($fileName);
        print "Content-Type: text/html\n\n";
        print "uploadInfo:<br>";
        print "###$fileName###";
        print $q->uploadInfo($fileName)->{'Content-Type'};
        #map {print "  $_: " . $fileInfo->{$_} . "<br>\n" } sort keys 
+%$fileInfo;
        exit(0);
        #.....
[download]

I get "Can't use an undefined value as a HASH reference". I Searched the whole net, but found no solution for this... Thanks! wigwam