Select Code to Download

foreach (sort {-M $a <=> -M $b} <*>)
{
    # ...
}

$oldest = 5;  # Days
$newest = 1;

...

      # Do stuff
}

$oldest = 5;  # Days
$newest = 1;

...
{
      # Do stuff
}