perl实现删除半年以前的文件

请指教高手：用perl如何删除半年以前的文件？
不着急，写了一个perl脚本，主要是用了Date::Manip模块，代码如下：

#!/usr/bin/perl

use strict;
use Date::Manip;

my $date1 = &DateCalc("today","-180 days", 0);
my @temp = stat("file.txt");
my $date2 = $temp[8];

my $flag = &Date_Cmp($date1,$date2);
if($flag < 0)
{
   print "$date1 is earlier than $date2!\n";
}
elsif($flag == 0)
{
   print "the two dates are identical!\n";
}
else
{
   print "$date2 is earlier than $date1!\n";
}
exit 0;

当然用shell更简单啦
先看是有哪些文件
$find / -mtime +180 -exec ls {} \;
然后删除掉
$find / -mtime +180 -exec rm {} \;