펄 이름바꿔서 파일복사 질문이요!

#!/usr/bin/perl -w
 
use File::Basename;                                                       # 모듈
use File::Copy;
use Cwd;
use File::Find::Rule;
 
chdir "../" or die;
 
$directory = getcwd();
 
my $fail_log;
my $targetDir = "/ex";
my $targetDevice;
my $backupPath;
 
my @files = File::Find::Rule->file()
                            ->name( '*.AMAP')
                            ->in($directory);
 
if($#files <1)
{
    die;
}       
 
foreach my $file(@files)
{
 
    if(not -d $file)
    {
 
	   copy($file, $targetDir) or die "Can't move";
 
    }
 
}
 
unlink glob "*.AMAP" or die;
 
chdir "../" or die;
chdir $targetDir or die;
print getcwd, "\n";
 
 
foreach my $file(@files)                                #문제점
{
 
    if(not -d $file)
    {
	  my ($fileNameOnly, $dir, $ext) = fileparse($file, '\.[^.]*');
 
	  copy($file, "경로") or die "Can't move";
 
	  rename($file, $fileNameOnly....?)
 
 
    }
 
}