Select Code to Download

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

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