#!/Perl/bin/perl -w
use strict;
use Win32::DriveInfo;

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