12:07 >perl -wE "my $f = shift; say (int((-M $f)*60*60*24)||1); say time - (stat $f)[9]" 1202_SoPW.pl
1441520
1441520

12:10 >