Help for this page

Select Code to Download

Select or download this

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

Select or download this

my $img = &FileUpload($in{idd});
open(MAKE,">$imagedir/$id.gif")
...
binmode MAKE;
print MAKE while <$img>;
close(MAKE);