Bild Upload über CGI

[qwartz]

Also ich bin bald soweit das ganze nochmal neu in php zu Schreiben.
ich hau jetzt hier mal den entsprechenden Abschnitt rein.Hab den Upload soweit geändert... aber immernoch die selbe Fehlermeldung ;(

if ($bild eq ""){$bild=$bildvalue}
else {$filename=$bild;
@pfad = split (/\/,$bild);
foreach $l (@pfad) {
if ($l =~ /(.*)jpg/g | $l =~ /(.*)jpeg/g | $l =~ /(.*)gif/g | $l =~ /(.*)bmp/g){$file=$l;}
}
 $bild=$file;&upload;}

if ($link eq ""){$link=$linkvalue}
else {$filename=$link;
@pfad = split (/\/,$link);
foreach $l (@pfad) {
if ($l =~ /(.*)jpg/g | $l =~ /(.*)jpeg/g | $l =~ /(.*)gif/g | $l =~ /(.*)bmp/g){$file=$l;}
}
 $link=$file;&upload;}

sub upload {
$filename = $query->param('uploaded_file');
open(OUTFILE,">>$dir")|| print"Can't open $dir. $!";
while ($bytesread=read($filename,$buffer,1024))
{print OUTFILE $buffer; }
close (OUTFILE);
return;}

hoffe man kann damit was anfangen jetzt hab ich ja eh bald das ganze Script gepostet :)
ty Q