print(getdcwd(), "\n");       # cd    -> E:\
print(getdcwd('c:'), "\n");   # cd c: -> C:\Work

{                             # cd c:new
   my $drive = substr(getcwd(), 0, 2);
   chdir('c:new');
   chdir($drive);
}

print(getdcwd(), "\n");       # cd    -> E:\
print(getdcwd('c:'), "\n");   # cd c: -> C:\Work\New