#!/usr/bin/perl
use warnings;
use strict;

( my $today = localtime ) =~ s'\d+:\d+:\d+'\d+:\d+:\d+';

for ( <*> ) {
    print "$_\n" if localtime( ( stat )[ 9 ] ) =~ $today;
    }