perl -MTime::Seconds -le'print( (-M shift) * ONE_DAY )' file
perl -MTime::Seconds -le'print( (-M shift) * ONE_DAY / ONE_MINUTE )' file