$IMG = $CGI->param("photo");
my $newfile = '09911.JPG';
my $copydir = 'img';
my $uploadfile = $CGI->upload($IMG);
rename($uploadfile, $newfile);
open ( UPLOADFILE, "+>$copydir/$newfile" );
close UPLOADFILE;