use Time::Local;
use File::stat;

my $cutoff = timelocal( 0, 0, 0, 1, 0, 2000 ); # 2000-01-01

sub process
{
  my $mtime = stat($file)->mtime;
  $mtime <= $cutoff or return;
  local $, = " ";  local $\ = "\n";
  print( (split ' ', localtime($mtime))[1,2,4] );
}
[download]