C:\>perl -e"mkdir 1234; opendir IN, 1234;rmdir 1234 or die $!"
Permission denied at -e line 1.
C:\>echo >1234\test
C:\>dir 1234
Volume in drive C has no label.
Volume Serial Number is 44B0-3C2E
Directory of C:\1234
04/22/2006 03:49 AM
.
04/22/2006 03:49 AM ..
04/22/2006 03:49 AM 13 test
1 File(s) 13 bytes
2 Dir(s) 3,360,935,936 bytes free
C:\>perl -e"opendir IN, 1234;rmdir 1234 or die $!"
Permission denied at -e line 1.
C:\>