2011-12-24-190157.pl

#!/usr/bin/env perl

# for formality's sake
use strict;
use warnings;

# reading directories
opendir(DIR,'.') or die "$!";

my $index = 0;

foreach (readdir(DIR)){
  # do something if $_ is directory
  if ((-d $_) && ($_ =~ /^[^\.]/)) {
    $index++;
    printf("mv %s tmpdir%03d\n", $_, $index);
    printf("#mv tmpdir%03d %s\n", $index, $_);
  };
}

# closing
closedir (DIR);