$size = -s $file ;	
if ($size <= "499000")
		{
			
			open (DAT,'>',"upload/".$file);
			
			#binmode $file;
			#binmode DAT;

			$data;
			while(read $file,$data,1024) 
			{
				print DAT $data;
			}
			close DAT;

			# HTML Ausgabe

$old = $file;
$new = "test.jpg";
rename $old, $new or die "Can't rename '$old' to '$new': $!";	# hier ist zeile 92