#!/usr/bin/perl
use File::Copy;
use File::Path qw(make_path remove_tree);


my $path = "F:\\temp\\Test" ;
my $New = "F:\\temp\\Test\\Test14.jpg";
my $Old =$New;
my $nFile = "Test14.jpg";
my $I=1;
 if (-e $New)
            {
              my $PATH = $path . $I; 
              until (! -d $PATH)
                {
                  
                  $I++;
                  $PATH = $path . $I;
                  print "I'm in a loop $PATH\n";
                  $New = qq($PATH\\$nFile);
                }  
                $path = $PATH;
            
            print "path is $path $Old $New\n" ;
          make_path($path);
          
           
          if (-d $path)
            {
             copy("$Old", "$New"); 
            }
          else
            {
             print "$path not existl\n";
            }
            }