if ( 1 > -M $file and 
          (localtime((stat _)[9]))[3] == (localtime)[3] ) {
               # modified "in the last 24 hours"
        }