if( -e $upload_dir.'/'.$filename2 ){
  my $inc = '1';
  while( -e $upload_dir . '/' . $filename2 . '~' .$inc ){
    $inc++;
  }
  # Use "${upload_dir}/${filename2}~${inc}" as the filename.
}