How can you delete files older than 7 days?

my $log_dir = "C:\perlwork\temp";
foreach my $file ( grep {-M > 7} glob("$log_dir/*.log") ) {
        unlink $file;
}