foreach my $file (@files) { $file = File::Spec->catfile($configdir, $file); next if (-d $file); unlink $file if -M $file >= $age; } }