perl监控磁盘容量超额则删除的脚本

my $path='d:video';
my @size=`dir d:`;
my @b=split(/s+/,$size[$#size]);
$b[3]=~s/,//g;
my $a=$b[3] / 1024 / 1024 /1024;

if ($a < 3) {
    opendir(D, "$path") or die  " video :$!";
    my @dir=readdir(D);
     for (@dir) {
  my $filename= $_;
    if ( -M "$path$filename"  >  100){
           chomp($filename);
  if ( "$filename" eq  '..'  or "$filename" eq '.') {
      next;
   }
    unlink($filename) ;
   }
}
}