Select Code to Download

use strict;
use warnings;
...
my @drives = Win32::DriveInfo::DrivesInUse();

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

A
C
D