ディレクトリ名に [ が含まれているとグロブが失敗するんですが
どうしたら [ 付きでも成功できるでしょうか？(Win2000 Perl5.8.7)

$dir = "c:\[test]";
if (-d $s) {
　print "exists \n"; # ここには来る
　while (glob("$s\\*")) {
　　print "$_\n"; # ここにはこない
　}
}