clear a directory with a large number of files

cleardir.pl

use Time::HiRes qw(time);

opendir $d, ".";

$| = 1;
$n = 0;
$t0 = time;
while ($f = readdir $d) {
  unlink $f;
  $n++;
  if ($n % 1000 == 0) {
    printf("%d %f/sec\r", $n, $n / (time - $t0))
  }
}