C:\>perl -e "if (!-d 'c:/test') {mkdir 'c:/test1';}"

C:\>dir t*
...
 Directory of C:\
09/04/2006  11:26a      <DIR>          TEMP
02/02/2008  10:14p      <DIR>          test1
               0 File(s)              0 bytes
               2 Dir(s)  10,945,437,696 bytes free