[求助]请教用perl进行linux下文件的管理！

[求助]请教用perl进行linux下文件的管理！
我是新手，各位多多帮助！我需要用perl编写一个程序，主要功能是进行文件管理，将一个目录下所有的重名文件删除，并且将长时间不使用的文件删除，以及无用的中间文件删除。
现在还没什么思路，请各位多帮助，谢谢！[CCB]10[/CCB]

不用perl--shell 就可以.
不用perl
shell 就可以

高手能不能详细一点阿？
请高手详细解答一下拉，我是新手哦，不太懂[CCB]9[/CCB]

# 编写一个归档脚本，递归.
# 编写一个归档脚本，递归遍历某个目录并归档那些90天以前创建的旧文件。
# 打印归档文件的名字，创建一个新目录并把那些旧文件移动到这个目录。
#! /usr/bin/perl -w
my $dir="d:/cbz/JavaScript/";
opendir(DIR,$dir) or die("Cannot open the directory:$!");
if(readdir(DIR))
{
chdir($dir);
unless(!((-e oldbak) && (-d oldbak)))
{
mkdir(oldbak,0755) or die("Cannot create the directory:$!");
}
my @files=<*.*>;
foreach my $file(@files)
{
$modifytime=(-M $file);
if($modifytime>90)
{
rename("$file","./oldbak/$file");
}
}
}
closedir(DIR) or die("Cannot close the directory:$!");