$filehandle = $q -> param("pic"); 
$extension = substr($filehandle, $filehandle =~ /.(gif|jpg|jpeg)$/i);

$imageHTML = "\&nbsp\;";  # when there's no image uploaded, put a space into the cell 
$filehandle = $q -> param("featuredpic"); 
if (defined($filehandle)) { 
    if ($filehandle =~ /(gif|jpg|jpeg)$/i) { 
        $imageHTML = "<img src='featuredimages/featuredpic".$featuredpageindex.".".$+."'>"; 
        $imagefile = "../../../www/bc/featuredimages/featuredpic".$featuredpageindex.".".$+; 
        open(SAVEIMAGE, ">$imagefile"); 
        while (<$filehandle>) { 
	    print SAVEIMAGE $_; 
        } 
        close (SAVEIMAGE); 
    } 
}