一定期間更新していないファイルの削除

　-Mファイルテスト演算子を使うと、最後にファイルを更新してから何日経過したかを取得できます。スクリプトの実行開始時刻($^T)が基準になるので、スクリプト開始後に更新されたファイルでは負の値が返ってきます。

use strict;
use warnings;

# 7日以上更新していない場合に削除する
my $file = '/tmp/app.log';
if (-M $file >= 7) {
    unlink $file or warn "$!:$file";
}