Select Code to Download

c:\mydir

c:\\mydir

md c:\\mydir\yourdir
pushd c:\mydir\\yourdir
popd

print "Enter string: ";
$dirname = <STDIN>;
...
print "Creating . . . $dirname\n";

mkdir($dirname, 0777) || die "Couldn't create $dirname. Error: $!\n";