rehsack

use DDP;
use Win32::DriveInfo;

for my $func (qw(DriveType VolumeInfo)) {
    for my $drv (qw(a c)) {
	$res{$func . "-" . $drv} = [ Win32::DriveInfo->can($func)->($drv) ];
    }
}
$res{GetVersionEx} = Win32::DriveInfo::GetVersionEx();
p(%res);