perl 删除过期文件

#!/usr/bin/perl
`find /bak/ >list.txt`;
open LIST,"/root/list.txt";
while (<LIST>){
    chomp;
    open TEST,"$_";
    if ( -d TEST ){
        close TEST;
    }
    else{
        close TEST;
        $mtime= -M $_;
        if ($mtime > 60){
            print "$_ old than 60 day!!\n";
            unlink $_;
        }
    }
}