#!/usr/bin/perl -w

use Win32::AdminMisc;

my $drives = GetDrives( DRIVE_FIXED );

print $drives . "\n";