Try Win32::DriveInfo. The DrivesInUse routine returns an array of all drive-letters in use.

Update: I ran this little test on my system

use strict;
use warnings;

use Win32::DriveInfo;

my @drives = Win32::DriveInfo::DrivesInUse();

print join( "\n", @drives );
[download]

Output:

A
C
D
[download]