open(DAT,">$ENV{DOCUMENT_ROOT}/idcards/images/$read[0].gif") || die $!;
binmode DAT;
binmode $form{upload};
my $data;
while(read param("upload"), $data, 1024) {
   print DAT $data;
}
close(DAT);