#!/usr/local/bin/perl
for ($j=0; $j <= 110; $j++) {
$dirname=sprintf("%04d",$j);
print "$dirname\n";
mkdir ($dirname,0755);
}
exit;