my $mname = 'Win32::DriveInfo';
my $modul = 1;
eval "use $mname; 1;" or $modul = 0;
if ($modul) {
	say "... Modul ist geladen ...";
	say join '*',Win32::DriveInfo::DriveSpace('c');
}
else { say "... Modul fehlt ..." }