use strict;
use warnings;

use Win32::DriveInfo;

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

print join( "\n", @drives );

##</code><code>##

A
C
D