use Win32API::File qw(:ALL);

@drives = getLogicalDrives();
print "$_\n" for @drives;