カレントディレクトリにmkdirを最大数作ってみる

デススクリプトorz

#!/usr/bin/perl -w
use strict;
use warnings;
use Fcntl;
eval{
  print "start\n";
  for(my $i=0;$i<100000;$i++){
    print "$i\n" if( 0== $i%100 );
    mkdir( $i."dir", 755) or die "cannot mkdir! $i";
  }
  print "end\n";
};if($@){
  print "ERROR:$@\n";
}
1;
__END__

まっさらなディレクトリ上で動かしてください。
削除するときは、

rm -rf ./*0dir; rm -rf ./*1dir; rm -rf ./*2dir; rm -rf ./*3dir; ...

てな感じで実行。
とりあえずデフォルトだと、32,000 ファイル/ディレクトリ しか出来ない、らしーよ〜
/proc/filesystems とかで制御できる訳では…無いみたい。カーネルの設定ってどこでいぢるんですか？