$ perl -MCwd -le " print Cwd::getcwd(q{C:})"
D:/perl/cpan/build

$ perl -MCwd -le " print Cwd::realpath(q{C:})"
C:/Documents and Settings/username