my $Newfile='0911';
my $copy_dir_qfn = 'avator/';
my $upload_fh = $CGI->upload("IMAGE");
my $image = Image::Resize->new($upload_fh);
my $gd = $image->resize(100, 100);
my ($file_extension) = $gd =~ /([^.]+)$/;
my $rename = $copy_dir_qfn."$Newfile.$file_extension";
open OUTFILE,'>',$rename or die "$!";
  binmode OUTFILE;
  while (<$upload_fh>){
    print OUTFILE;
  }
  close OUTFILE;