use strict;

##</code><code>##

use warnings;  # as well?

##</code><code>##

if ($ARGV[0] eq "") { $ARGV[0]="."; }

##</code><code>##

@ARGV = '.' unless @ARGV;

##</code><code>##

my @file_list;
find ( sub {
  my $file = $File::Find::name;
  if ( -f $file && $file =~ /^DATE_/) {
    push (@file_list, $file) 
  }
}, @ARGV);

##</code><code>##

  my @stats = stat($file);
  if ($now-$stats[9] > $AGE) { # file older than 14 days

##</code><code>##

  if ($now-(stat $file)[9] > $AGE) { # file older than 14 days