my $dir = "dir/foo";
opendir(DIR, $dir);
foreach my $file ( readdir DIR ) {
    unlink "$dir/$file";
}

##</code><code>##

my $m_time = -M "$dir/$file";