my $age = (time - (stat($file))[10]) / (60 * 60 * 24);