How do I get the substed drive letter in Perl?

I need to get substed drive letter in Perl. Could anyone kindly help me? $ENV{SYSTEMDRIVE} does not work; it gives me real logical drive letter, not the substed one.

Solution

 perl -e 'use Cwd; print( substr(getcwd(),10,1 )) ' # prints 10th char.

Two versions of Perl in Mac OS X?
Perl DBI with Mariadb Maxscale
Can't figure out multi-dimensional Perl hash references: Not a HASH reference
Why is "kill" is not exiting a thread immediately?
Net::OpenSSH with Expect to connect to router
Can't locate new.pm in @INC
Parsing broken multipart/mixed email
How can I print a table with multi-line strings using the Text::Table module?
How do I output a text table in Perl?
Replace spaces differently depending on outside or inside single quotes
Is there a bash-perl shortcut to count the number of matches in each line?
Calculate date of birth from age at specific date [MySQL or Perl]
bash perl run argument as command
Match all files in directory and index files from first level children
Print HTML Table from an array with condition with Perl CGI
Why do I get ARRAY(0x9c90818) instead of the items in the array in Perl?
Perl regex for street number street name, at least, one digit, one upper case letter, least two lowercase and one whitespace
File::Copy vs. rename
Using Perl's 'rename' to pad filenames with leading zeros
Swap filenames backwards
Expect module: end of string is correctly matched, but characters remain in 'after' part, causing next expect to continue prematurely
Is there a Perl equivalent to Python's `if __name__ == '__main__'`?
How can I add variables into my Perl one-liner?
Parsing a file by summing up different columns of each row separated by blank line
How to prevent automatic handling of newlines killing performance in Perl text output?
How to pass both mandatory and optional command line arguments to perl script?
How can I find the newest created file in a directory?
How can I find the newest .pl file in a directory and all its subdirectories using Perl?
Why does truncating a DateTime to "day" cause me to get the wrong result when subtracting a day?
How to organize private methods on Perl objects?