求助一个目录和文件名的问题

我想实现这样一个功能，就是我现在有很多文件夹，里面都有一个相同的文件，
比如aaa/test.c
      bbb/test.c
      ccc/test.c
我想改名字为
    aaa/aaa.c
      bbb/bbb.c
      cccc/ccc.c
这样要如何写？
新手，郁闷了半天愣是没写出来，我调用了shell语句： %cwd:t 得到当前文件夹名字

比如我用file_name=system“%cwd:t”，这样为什么file_name得不到system“%cwd:t”显示的值呢？要怎么做呢？

#!/usr/bin/perl
use strict;
use File::Find;

my $file = "test.c";
my $path = "/home/xxx/";

my @array;
find(\&process, $path);
sub process{ push (@array,$File::Find::dir) if /$file/; }
for (@array){
chdir $_;
$_=~s#.*/(.*?)(?=$)#$1\.cc#;
rename ($file,$_);
}


exit 0;

这个我实现的，可以在简化一下，就算给你一些提示吧。