#! /usr/local/bin/perl use Cwd; $dir = cwd; print "dir=> $dir\n"; mkdir ('D:\\newdir',000) || warn "mkdir failed $!"; mkdir ('newdir2',000) || warn "mkdir failed $!"; rmdir ('newdir'); print "\n\n";