Perl 删除前5天log

#!/usr/bin/perl -w
use strict;
use warnings;
use File::Find;
use POSIX "strftime";

#系统时间获取
my $data_now = strftime( "%Y%m%d", localtime( time() - 86400 * 0 ) );

my ( $size, $dircnt, $filecnt ) = ( 0, 0, 0 );

sub process {
     my $file = $File::Find::name;

     # 获取文件最后修改时间
     my $mtie = `stat --printf=%z $File::Find::name`;

     # 转换日期格式
     if ( $mtie =~ /(\d+)\-(\d+)\-(\d+)/ ) {
          my $time = "$1$2$3";

          # 删除大于5天前的log
          if ( $time < $data_now - 5 ) {

               # 如果是文件夹
               if ( -d $file ) {
                    #print "文件夹:$file\n";
               }

               # 如果是文件
               if ( -f $file ) {
                    print "文件:$file\n";
                    system("rm -f $file");
               }
          }

          else {

               #print "保留:$file,\n";
          }

     }
}

find( \&process, "/home/vftpsite/172.16.88.101" );
find( \&process, "/home/vftpsite/172.16.88.102" );
find( \&process, "/home/vftpsite/172.16.88.103" );
find( \&process, "/home/vftpsite/172.16.88.228" );
find( \&process, "/home/vftpsite/172.16.88.35" );
find( \&process, "/home/vftpsite/172.16.88.40" );
find( \&process, "/home/vftpsite/172.16.88.56" );