unlink grep { (stat($_))[9] < time - ($days * 86400) } @files;