Select Code to Download

foreach my $dir (@directories)
{
    foreach my $file (@filenames)
    {
        $age = -M $file;
    ....

foreach my $dir (@directories)
{
    foreach my $file (@filenames)
    {
        $age = -M "$dir/$file";  # see the difference?
    ....

foreach my $dir (@directories)
{
    chdir $dir or die "Couldn't chdir to $dir: $!\n";
...
        ....
    }
    chdir ".." or die "Help, I stranded myself";