Please read the CGI documentation, specifically, the section devoted to file upload processing. It has examples. Basically you're doing this wrong:

my $img = &FileUpload($in{idd});
open(MAKE,">$imagedir/$id.gif")
    or die("Could not save $id.gif");
print MAKE $img;
close(MAKE);
[download]

Should be something like this:

my $img = &FileUpload($in{idd});
open(MAKE,">$imagedir/$id.gif")
    or die("Could not save $id.gif");
binmode MAKE;
print MAKE while <$img>;
close(MAKE);
[download]