Perl : 文件测试，例如找出20分钟内修改过的文件

见 -X perldoc

my $mday = -M "some.txt";
my $minute = $mday * 24 * 60;
if($minute<=20){
    print "some.txt is modify < 20 min ago\n";
}