Select Code to Download

use strict;

use warnings;  # as well?

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

@ARGV = '.' unless @ARGV;

my @file_list;
find ( sub {
...
    push (@file_list, $file) 
  }
}, @ARGV);

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

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