Select Code to Download

opendir(DIR, $path) or die("No opendir on $path\n");
while (defined($_ = readdir DIR)) {
...
if ($filename) {
  unlink($filename) or die("No unlink on $filename\n");
}