my @modifydate = (localtime( time - ( 86400 * -M $logfile ) ))[3..5];
my @today = (localtime)[3..5];

if( "@modifydate" eq "@today" ) {
  print "$logfile wurde heute zuletzt bearbeitet\n";
}