use Win32::FileOp qw(Mapped);
my $share = Mapped 'M:';

my %shares = Mapped();